R version 2.10.0 (2009-10-26)
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(7.7,7.5,8.3,7.8,7.9,6.6,7,8.2,8.2,9.1,9,7.1,8.9,8.5,9.8,8.8,9.2,7.4,8.3,9.7,9.7,10.8,9.8,7.9,9.8,9,10.5,9.5,9.7,8.1,10.1,11.1,11.2,12.6,12.2,9.9,11.8,11.1,12.6,11.9,11.9,10,10.8,12.9,12.5,13.8,13.1,10.5,12.9,12.9,14.4,12.7,13.3,11,11.9,14.1,14.4,14.9,15.7,12,14.3,14.2,17.4,15.1,15.3,12.6,14,16.6,16.7,17.6,18.3,13.6,15.8,16.1,18.6,17.3,17,13.9,15.2,17.8,18,19.4,21.8,16.2,19.2,19.5,22,20,19.2,16.9,20,20.4,21.8,25,25.8,19.4,22.6,24.1,26.9,24.9,23.3,20.3,22.3,23.7,24.3,31.7,32.2,25.4,28.6,28.7,30.9,31.4,29.1,26.3,28.9,28.9,31,33.4,35.9,25.8,31.2,31.7,36.2,32,32.1,28.1,31.1,31.9,32,36.6,38.1,28.1,32.9,30.7,35.4,33.7,31.6,27.9,32.2,32.3,35.3,37.2,39.6,28.4,33.9,33.7,38.3,34.6,32.7,29.5,32,33.2,36.7,38.6,38.1,29.8,35.6,33.2,38.9,34.8,37.2,29.7,32.2,32.1,36.3,38.4,40.8,31.3,36.2,35.1,44.1,39.3,34.1,32.4,36.3,36.8,40.5,46,43.9,37.2,40.7,42,49.2,42.3,40.8,37.6)
> par3 = ''
> par2 = ''
> par1 = 'X[t]'
> ylab = 'value'
> xlab = 'index'
> main = ''
> #'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!)
> postscript(file="/var/www/rcomp/tmp/1x84e1261077351.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Univariate Dataseries',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description',header=TRUE)
> a<-table.element(a,par3)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Number of observations',header=TRUE)
> a<-table.element(a,length(x))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/rcomp/tmp/26qrn1261077351.tab") 
> 
> try(system("convert tmp/1x84e1261077351.ps tmp/1x84e1261077351.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.550   0.340   0.792