RC.capture <- function (expression, collapse = NULL) {
    resultConn <- textConnection('RC.resultText', open = 'w', local=TRUE)
    sink(resultConn)
    on.exit(function() {
        sink()
        close(resultConn)
    })
    expression
    on.exit(NULL)
    sink()
    close(resultConn)
    return(paste(c(RC.resultText, ''), collapse = collapse, sep = ''))
}
RC.texteval <- function (sourceText, collapse = NULL, echo = TRUE) {
    sourceConn <- textConnection(sourceText, open = 'r')
    on.exit(close(sourceConn))
    result <- RC.capture(source(file = sourceConn, local = FALSE, echo = echo, print.eval = TRUE), collapse = collapse)
    on.exit(NULL)
    close(sourceConn)
    res <- ''
    for(i in 1:length(result)) {
      if (result[i]!='') res <- paste(res,result[i],'
',sep='')
    }
    return(res)
}
x <- c(186.59
,244.665
,248.18
,253.568
,171.242
,413.971
,216.89
,227.901
,259.823
,148.438
,241.013
,206.248
,108.908
,267.952
,314.219
,235.115
,203.027
,365.415
,350.933
,263.304
,738.751
,959.073
,483.828
,213.016
,177.341
,352.622
,352.622
,217.307
,236.184
,215.701
,228.383
,485.625
,252.502
,342.515
,196.931
,365.315
,316.664
,313.523
,188.124
,184.083
,362.962
,170.161
,167.484
,211.752
,276.469
,182.097
,266.904
,235.328
,329.45
,258.118
,952.515
,247.141
,498.726
,313.308
,420.188
,231.156
,227.844
,204.385
,216.563
,207.19
,232.417
,203.109
,221.07
,254.623
,108.981
,229.417
,476.376
,221.91
,158.946
,295.746
,187.976
,283.76
,705.401
,178.69
,232.635
,245.185
,186.03
,181.142
,228.478
,491.849
,506.461
,182.828
,263.654
,253.718
,480.937
,209.894
,655.92
,223.408
,103.138
,255.664
,184.661
,372.945
,758.6
,256.445
,204.868
,197.384
,245.311
,301.707
,501.478
,278.731
,205.92
,177.14
,139.753
,366.46
,435.522
,239.906
,178.722
,340.04
,236.948
,221.152
,263.303
,222.814
,317.99
,149.593
,221.983
,201.551
,266.901
,185.218
,347.536
,395.593
,238.217
,254.697
,157.584
,807.302
,252.391
,189.194
,267.834
,173.15
,267.633
,283.284
,209.475
,135.135
,285.012
,178.495
,256.852
,301.828
,158.403
,355.963
,364.117
,233.203
,257.634
,208.57
,212.503
,251.059
,276.803
,198.339
,301.018
,369.761
,162.768
,199.968
,406.676
,364.156
,202.391
,319.491
,185.546
,243.559
,220.928
,193.714
,372.943
,163.822
,217.566
,232.527)
par20 = ''
par19 = ''
par18 = ''
par17 = ''
par16 = ''
par15 = ''
par14 = ''
par13 = ''
par12 = ''
par11 = ''
par10 = ''
par9 = ''
par8 = ''
par7 = ''
par6 = ''
par5 = ''
par4 = ''
par3 = '10'
par2 = '80'
par1 = '5'
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
stem(x,par1,par2,par3)

#Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
load(file="/var/wessaorg/rcomp/createtable")

a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Stem-and-leaf Plot',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('<pre>',RC.texteval('stem(x,par1,par2,par3)'),'</pre>',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file="/var/wessaorg/rcomp/tmp/1b0j61356096592.tab")