R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(426113,383703,232444,70939,226731,947293,611281,158047,33999,37028,388.3,506652,392.25,180818,198296,217465,275562,1030944,57.47,136452,556277,213361,274482,220553,236.71,260642,2763544,213923,169861,403064,449594,406167,206893,156187,257102,62156,662883,251422,171328,350089,221588,4813,183186,190379,223166,232669,356725,109215,475834,315955,694.87,8.95,278741,308.16,207533,192797,601162,289714,293671,386688,699645,85094,131812,645285,197549,308174,86.58,242205,238502,187881,140321,440.31,421403,218761,1305923,137.55,262517,348821,150034,64016,261596,259.7,171.26,203077,249148,211655,252.64,438555,239.89,401915,216886,184641,380155,653641,313906,366936,236302,229641,235577,103898,263906,241171,216548,295281,193299,204386,257567,136813,240755,59609,213511,380531,242344,250407,183613,191835,266793,246542,330563,403556,208108,324.04,308532,199297,200156,262875,287069,190157,199746,265777,435956,72844,756.46,206771,4202361,401422,216046,39047,441437)
> par3 = '1e-08'
> par2 = '80'
> par1 = '10'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> par3 <- as.numeric(par3)
> stem(x,par1,par2,par3)

  The decimal point is 4 digit(s) to the right of the |

    0 | 00000000000000115
    2 | 479
    4 | 
    6 | 02413
    8 | 5
   10 | 49
   12 | 267
   14 | 0068
   16 | 01
   18 | 1345800233889
   20 | 00347788234467779
   22 | 1237023669
   24 | 1122790178
   26 | 1233467469
   28 | 7045
   30 | 8946
   32 | 1
   34 | 907
   36 | 7
   38 | 0147
   40 | 12346
   42 | 1669
   44 | 10
   46 | 6
   48 | 
   50 | 7
   52 | 
   54 | 6
   56 | 
   58 | 
   60 | 11
   62 | 
   64 | 54
   66 | 3
   68 | 
   70 | 0
   72 | 
   74 | 
   76 | 
   78 | 
   80 | 
   82 | 
   84 | 
   86 | 
   88 | 
   90 | 
   92 | 
   94 | 7
   96 | 
   98 | 
  100 | 
  102 | 1
  104 | 
  106 | 
  108 | 
  110 | 
  112 | 
  114 | 
  116 | 
  118 | 
  120 | 
  122 | 
  124 | 
  126 | 
  128 | 
  130 | 6
  132 | 
  134 | 
  136 | 
  138 | 
  140 | 
  142 | 
  144 | 
  146 | 
  148 | 
  150 | 
  152 | 
  154 | 
  156 | 
  158 | 
  160 | 
  162 | 
  164 | 
  166 | 
  168 | 
  170 | 
  172 | 
  174 | 
  176 | 
  178 | 
  180 | 
  182 | 
  184 | 
  186 | 
  188 | 
  190 | 
  192 | 
  194 | 
  196 | 
  198 | 
  200 | 
  202 | 
  204 | 
  206 | 
  208 | 
  210 | 
  212 | 
  214 | 
  216 | 
  218 | 
  220 | 
  222 | 
  224 | 
  226 | 
  228 | 
  230 | 
  232 | 
  234 | 
  236 | 
  238 | 
  240 | 
  242 | 
  244 | 
  246 | 
  248 | 
  250 | 
  252 | 
  254 | 
  256 | 
  258 | 
  260 | 
  262 | 
  264 | 
  266 | 
  268 | 
  270 | 
  272 | 
  274 | 
  276 | 4
  278 | 
  280 | 
  282 | 
  284 | 
  286 | 
  288 | 
  290 | 
  292 | 
  294 | 
  296 | 
  298 | 
  300 | 
  302 | 
  304 | 
  306 | 
  308 | 
  310 | 
  312 | 
  314 | 
  316 | 
  318 | 
  320 | 
  322 | 
  324 | 
  326 | 
  328 | 
  330 | 
  332 | 
  334 | 
  336 | 
  338 | 
  340 | 
  342 | 
  344 | 
  346 | 
  348 | 
  350 | 
  352 | 
  354 | 
  356 | 
  358 | 
  360 | 
  362 | 
  364 | 
  366 | 
  368 | 
  370 | 
  372 | 
  374 | 
  376 | 
  378 | 
  380 | 
  382 | 
  384 | 
  386 | 
  388 | 
  390 | 
  392 | 
  394 | 
  396 | 
  398 | 
  400 | 
  402 | 
  404 | 
  406 | 
  408 | 
  410 | 
  412 | 
  414 | 
  416 | 
  418 | 
  420 | 2

> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/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,'Please, click the above output link to view the Stem-and-leaf plot')
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/1pgzy1286212812.tab") 
> 
> 
> proc.time()
   user  system elapsed 
  0.189   0.039   0.238