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(10489.3
+ ,10508.6
+ ,10518.7
+ ,10530.9
+ ,10543.4
+ ,10555.4
+ ,10570.5
+ ,10586.9
+ ,10598.3
+ ,10612.9
+ ,10629.0
+ ,10643.8
+ ,10660.7
+ ,10679.9
+ ,10692.1
+ ,10706.5
+ ,10724.4
+ ,10736.4
+ ,10750.7
+ ,10766.9
+ ,10781.2
+ ,10797.6
+ ,10816.1
+ ,10829.1
+ ,10844.1
+ ,10861.0
+ ,10875.6
+ ,10892.0
+ ,10909.7
+ ,10924.1
+ ,10940.7
+ ,10959.6
+ ,10977.2
+ ,10997.0
+ ,11019.1
+ ,11036.9
+ ,11057.0
+ ,11079.3
+ ,11093.6
+ ,11110.2
+ ,11128.0
+ ,11146.7
+ ,11165.5
+ ,11184.2
+ ,11204.6
+ ,11224.9
+ ,11245.3
+ ,11266.0
+ ,11286.1
+ ,11306.8
+ ,11326.0
+ ,11344.5
+ ,11362.9
+ ,11380.5
+ ,11398.1
+ ,11415.9
+ ,11430.4
+ ,11444.1
+ ,11459.1
+ ,11478.9
+ ,11498.1
+ ,11517.8
+ ,11536.0
+ ,11554.4
+ ,11572.6
+ ,11589.4
+ ,11606.2
+ ,11623.2
+ ,11638.3
+ ,11653.2
+ ,11668.1
+ ,11688.6
+ ,11705.9
+ ,11723.3
+ ,11740.4
+ ,11757.5
+ ,11774.6
+ ,11791.7
+ ,11808.8
+ ,11826.0
+ ,11844.3
+ ,11862.6
+ ,11881.0
+ ,11900.8
+ ,11920.7
+ ,11940.7
+ ,11958.1
+ ,11975.6
+ ,11993.1
+ ,12012.3
+ ,12031.4
+ ,12050.6
+ ,12073.3
+ ,12096.1
+ ,12119.0
+ ,12141.6
+ ,12164.2
+ ,12186.9
+ ,12207.8
+ ,12228.7
+ ,12249.7
+ ,12270.8
+ ,12291.9
+ ,12313.0
+ ,12334.8
+ ,12356.6
+ ,12378.5
+ ,12401.4
+ ,12424.4
+ ,12447.4
+ ,12468.8
+ ,12489.9
+ ,12511.0
+ ,12531.2
+ ,12551.2
+ ,12571.1
+ ,12594.4
+ ,12617.4
+ ,12640.5
+ ,12664.4
+ ,12688.0
+ ,12711.8
+ ,12732.6
+ ,12753.4
+ ,12774.3
+ ,12794.6
+ ,12814.5
+ ,12834.5
+ ,12856.9
+ ,12879.3
+ ,12901.7
+ ,12924.4
+ ,12947.1
+ ,12969.9
+ ,12991.8
+ ,13013.6
+ ,13035.5
+ ,13055.5
+ ,13075.4
+ ,13095.5
+ ,13112.4
+ ,13129.3
+ ,13146.1
+ ,13163.1
+ ,13179.9
+ ,13196.8
+ ,13216.6
+ ,13236.5
+ ,13256.4
+ ,13276.3
+ ,13296.2
+ ,13316.2
+ ,13336.1
+ ,13356.0
+ ,13375.9
+ ,13395.1
+ ,13414.2
+ ,13433.5
+ ,13451.2)
> par3 = ''
> par2 = ''
> par1 = 'Maandelijks bevolkingsaantal AUS'
> ylab = 'Bevolkingsaantal'
> xlab = 'Maanden'
> main = 'Maandelijks bevolkingsaantal AUS'
> #'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/1fgze1244279223.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/2xh6p1244279223.tab") 
> 
> system("convert tmp/1fgze1244279223.ps tmp/1fgze1244279223.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.390   0.173   0.479