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(9712.73,9962.58,9762.69,9882.17,9867.96,9972.18,10081.31,9949.36,10041.48,10092.19,9995.91,10062.94,10015.86,9871.06,9885.8,9864.94,9786.87,9725.58,9731.25,9599.75,9487.67,9509.28,9712.28,9742.2,9789.36,9665.19,9707.44,9748.55,9829.87,9778.86,9820.2,9783.92,9791.71,9683.41,9626.8,9605.41,9627.48,9547.22,9497.34,9441.27,9344.61,9280.67,9310.6,9496.28,9544.2,9580.63,9543.52,9539.29,9509.28,9505.96,9350.05,9279.16,9217.94,9135.34,9321.4,9389.19,9361.61,9241.45,9337.95,9370.07)
> par3 = ''
> par2 = ''
> par1 = 'Beurs van New York'
> ylab = 'koers'
> xlab = 'tijd'
> 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/html/rcomp/tmp/1pwci1257182073.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/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,'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/html/rcomp/tmp/2cm6i1257182073.tab") 
> 
> system("convert tmp/1pwci1257182073.ps tmp/1pwci1257182073.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.372   0.166   0.541