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(3940.35
+ ,4696.69
+ ,4572.83
+ ,3860.66
+ ,3400.91
+ ,3966.11
+ ,3766.99
+ ,4206.35
+ ,3672.82
+ ,3369.63
+ ,2597.93
+ ,2470.52
+ ,2772.73
+ ,2151.83
+ ,1840.26
+ ,2116.24
+ ,2110.49
+ ,2160.54
+ ,2027.13
+ ,1805.43
+ ,1498.80
+ ,1690.20
+ ,1930.58
+ ,1950.40
+ ,1934.03
+ ,1731.49
+ ,1845.35
+ ,1688.23
+ ,1615.73
+ ,1463.21
+ ,1328.26
+ ,1314.85
+ ,1172.06
+ ,1329.75
+ ,1478.78
+ ,1335.51
+ ,1320.91
+ ,1337.52
+ ,1341.17
+ ,1464.31
+ ,1595.91
+ ,1622.80
+ ,1735.02
+ ,1810.45
+ ,1786.94
+ ,1932.21
+ ,1960.26
+ ,2003.37
+ ,2066.15
+ ,2029.82
+ ,1994.22
+ ,1920.15
+ ,1986.74
+ ,2047.79
+ ,1887.36
+ ,1838.10
+ ,1896.84
+ ,1974.99
+ ,2096.81
+ ,2175.44
+ ,2062.41
+ ,2051.72
+ ,1999.23
+ ,1921.65
+ ,2068.22
+ ,2056.96
+ ,2184.83
+ ,2152.09
+ ,2151.69
+ ,2120.30
+ ,2232.82
+ ,2205.32
+ ,2305.82
+ ,2281.39
+ ,2339.79
+ ,2322.57
+ ,2178.88
+ ,2172.09
+ ,2091.47
+ ,2183.75
+ ,2258.43
+ ,2366.71
+ ,2431.77
+ ,2415.29
+ ,2463.93
+ ,2416.15
+ ,2421.64
+ ,2525.09
+ ,2604.52
+ ,2603.23
+ ,2546.27
+ ,2596.36
+ ,2701.50
+ ,2859.12
+ ,2660.96
+ ,2652.28
+ ,2389.86
+ ,2271.48
+ ,2279.10
+ ,2412.80
+ ,2522.66
+ ,2292.98
+ ,2325.55
+ ,2367.52
+ ,2091.88
+ ,1720.95
+ ,1535.57
+ ,1577.03
+ ,1476.42
+ ,1377.84
+ ,1528.59
+ ,1717.30
+ ,1774.33
+ ,1835.04
+ ,1978.50
+ ,2009.06
+ ,2122.42
+ ,2045.11
+ ,2144.60
+ ,2269.15
+ ,2147.35
+ ,2238.26
+ ,2397.96
+ ,2461.19
+ ,2257.04
+ ,2109.24
+ ,2254.70
+ ,2114.03
+ ,2368.62
+ ,2507.41)
> par4 = '12'
> par3 = 'Apple Inc'
> par2 = ''
> par1 = 'Apple inc'
> ylimmax = ''
> ylimmin = ''
> ylab = 'Dollar'
> xlab = 'Maanden'
> main = 'Nasdaq koers'
> #'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. 
   1172    1842    2115    2194    2385    4697 
> n <- length(x)
> postscript(file="/var/www/rcomp/tmp/1nn8b1292057720.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/21xnj1292057720.tab") 
> 
> try(system("convert tmp/1nn8b1292057720.ps tmp/1nn8b1292057720.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.440   0.180   0.591