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(426,384,232,71,227,947,611,158,34,37,388,507,392,181,198,217,276,1031,57,136,556,213,274,221,237,261,2764,214,170,403,450,406,207,156,257,62,663,251,171,350,222,5,183,190,223,233,357,109,476,316,695,9,279,308,208,193,601,290,294,387,700,85,132,645,198,308,87,242,239,188,140,440,421,219,1306,138,263,349,150,64,262,260,171,203,249,212,253,439,240,402,217,185,380,654,314,367,236,230,236,104,264,241,217,295,193,204,258,137,241,60,214,381,242,250,184,192,267,247,331,404,208,324,309,199,200,263,287,190,200,266,436,73,756,207,4202,401,216,39,441)
> par3 = '1e-08'
> par2 = '40'
> par1 = '1'
> #'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 2 digit(s) to the right of the |

   0 | 1134466667799013444456677788
   2 | 0000000111111112222222233334+35
   4 | 000012344445816
   6 | 01556006
   8 | 5
  10 | 3
  12 | 1
  14 | 
  16 | 
  18 | 
  20 | 
  22 | 
  24 | 
  26 | 6
  28 | 
  30 | 
  32 | 
  34 | 
  36 | 
  38 | 
  40 | 
  42 | 0

> 
> #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/102ap1286222869.tab") 
> 
> 
> proc.time()
   user  system elapsed 
  0.197   0.025   0.220