R version 2.12.0 (2010-10-15)
Copyright (C) 2010 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i486-pc-linux-gnu (32-bit)

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(23688100
+ ,13741000
+ ,14143500
+ ,16763800
+ ,16634600
+ ,13693300
+ ,10545800
+ ,9409900
+ ,39182200
+ ,37005800
+ ,15818500
+ ,16952000
+ ,24563400
+ ,14163200
+ ,18184800
+ ,20810300
+ ,12843000
+ ,13866700
+ ,15119200
+ ,8301600
+ ,14039600
+ ,12139700
+ ,9649000
+ ,8513600
+ ,15278600
+ ,15590900
+ ,9691100
+ ,10882700
+ ,10294800
+ ,16031900
+ ,13683600
+ ,8677200
+ ,9874100
+ ,10725500
+ ,8348400
+ ,8046200
+ ,10862300
+ ,8100300
+ ,7287500
+ ,14002500
+ ,19037900
+ ,10774600
+ ,8960600
+ ,7773300
+ ,9579700
+ ,11270700
+ ,9492800
+ ,9136800
+ ,14487600
+ ,10133200
+ ,18659700
+ ,15980700
+ ,9732100
+ ,14626300
+ ,16904000
+ ,13616700
+ ,13772900
+ ,28749200
+ ,31408300
+ ,26342800
+ ,48909500
+ ,41542400
+ ,24857200
+ ,34093700
+ ,22555200
+ ,19067500
+ ,19029100
+ ,15223200
+ ,21903700
+ ,33306600
+ ,23898100
+ ,23279600
+ ,40699800
+ ,37646000
+ ,37277000
+ ,39246800
+ ,27418400
+ ,30318700
+ ,32808100
+ ,28668200
+ ,32370300
+ ,24171100
+ ,25009100
+ ,32084300
+ ,50117500
+ ,27522200
+ ,26816800
+ ,25136100
+ ,30295600
+ ,41526100
+ ,43845100
+ ,39188900
+ ,40496400
+ ,37438400
+ ,46553700
+ ,31771400
+ ,62108100
+ ,46645400
+ ,42313100
+ ,38841700
+ ,32650300
+ ,34281100
+ ,33096200
+ ,23273800
+ ,43697600
+ ,66902300
+ ,44957200
+ ,33800900
+ ,33487900
+ ,27394900
+ ,25963400
+ ,20952600
+ ,17702900
+ ,21282100
+ ,18449100
+ ,14415700
+ ,17906300
+ ,22197500
+ ,15856500
+ ,19068700
+ ,30855100
+ ,21209000
+ ,19541600
+ ,21955000
+ ,33725900
+ ,28192800
+ ,27377000
+ ,16228100
+ ,21278900
+ ,21457400)
> par4 = '12'
> par3 = 'Apple Inc'
> par2 = ''
> par1 = 'Apple inc'
> ylimmax = ''
> ylimmin = ''
> ylab = 'Hoeveelheid'
> xlab = 'Maanden'
> main = 'Verkocht volume Apple'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2009, 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: 
> #Technical description: 
> if (par4 != 'No season') {
+ par4 <- as.numeric(par4)
+ if (par4 < 4) par4 <- 12
+ }
> summary(x)
    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
 7288000 13900000 21080000 23330000 32010000 66900000 
> n <- length(x)
> postscript(file="/var/www/rcomp/tmp/16l5i1292057265.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> if (par4=='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,10))
+ }
> if (par4!='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,par4))
+ grid(nx=0,ny=NULL,col='black')
+ abline(v=seq(1,n,par4),col='black',lty='dotted')
+ }
> 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/2kulq1292057265.tab") 
> 
> try(system("convert tmp/16l5i1292057265.ps tmp/16l5i1292057265.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.460   0.160   0.598