R version 2.8.0 (2008-10-20)
Copyright (C) 2008 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(18.01
+ ,18.17
+ ,18.1
+ ,17.79
+ ,17.79
+ ,17.79
+ ,17.47
+ ,17.23
+ ,17.25
+ ,17.11
+ ,17.24
+ ,17.24
+ ,17.24
+ ,17.32
+ ,16.8
+ ,16.32
+ ,16.02
+ ,15.17
+ ,15.17
+ ,15.17
+ ,14.12
+ ,14.61
+ ,13.84
+ ,14.79
+ ,13.26
+ ,13.26
+ ,13.26
+ ,14.33
+ ,14.94
+ ,15.28
+ ,14.89
+ ,15.03
+ ,15.03
+ ,15.03
+ ,15.03
+ ,14.21
+ ,14.24
+ ,13.9
+ ,13.65
+ ,13.65
+ ,13.65
+ ,13.12
+ ,14.05
+ ,14.22
+ ,14.11
+ ,13.64
+ ,13.64
+ ,13.64
+ ,14.21
+ ,14.47
+ ,14.53
+ ,14.6
+ ,14.02
+ ,14.02
+ ,14.02
+ ,14.48
+ ,15.18
+ ,15.03
+ ,14.95
+ ,14.68
+ ,14.68
+ ,14.68
+ ,14.72
+ ,14.38
+ ,14.71
+ ,14.29
+ ,14.74
+ ,14.74
+ ,14.74
+ ,14.29
+ ,14.89
+ ,15.28
+ ,14.79
+ ,14.72
+ ,14.72
+ ,14.72
+ ,13.98
+ ,14.71
+ ,14.82
+ ,15.09
+ ,15.09
+ ,15.09
+ ,15.09
+ ,15.09
+ ,15.74
+ ,15.69
+ ,15.9
+ ,15.97
+ ,15.97
+ ,15.97
+ ,15.96
+ ,16.46
+ ,16.63
+ ,16.28
+ ,16.39
+ ,16.39
+ ,16.39
+ ,16.8
+ ,16.94
+ ,16.75
+ ,16.6
+ ,16.52
+ ,16.52
+ ,16.52
+ ,16.4
+ ,16.44
+ ,16.68
+ ,16.75
+ ,17.44
+ ,17.44
+ ,17.44
+ ,17.36
+ ,17.31
+ ,17.25
+ ,17.05
+ ,17.18
+ ,17.18
+ ,17.18
+ ,17.34
+ ,17.27
+ ,17.5
+ ,17.5
+ ,17.31
+ ,17.31
+ ,17.31
+ ,17.32
+ ,17.07
+ ,17.25
+ ,17.19
+ ,17.06
+ ,17.06
+ ,17.06
+ ,16.95
+ ,16.72
+ ,16.94
+ ,16.98
+ ,17.01
+ ,17.01
+ ,17.01
+ ,16.87
+ ,16.7
+ ,16.36
+ ,16.26
+ ,15.89
+ ,15.89
+ ,15.89
+ ,15.81
+ ,15.61
+ ,15.78
+ ,15.68
+ ,15.74
+ ,15.74
+ ,15.74
+ ,15.45
+ ,15.45
+ ,15.44
+ ,15.59
+ ,15
+ ,15
+ ,15
+ ,14.37
+ ,13.82
+ ,13.44
+ ,13.82
+ ,13.79
+ ,13.79
+ ,13.79
+ ,13.57
+ ,13.76
+ ,13.16
+ ,12.84
+ ,12.19
+ ,12.19
+ ,12.19
+ ,11.88
+ ,12.25
+ ,12.65
+ ,10.26
+ ,10.62
+ ,10.62
+ ,10.62
+ ,10.16
+ ,9.94
+ ,10.18
+ ,10.18
+ ,9.8
+ ,9.8
+ ,9.8
+ ,9.85
+ ,9.63
+ ,10.1
+ ,9.86
+ ,9.45
+ ,9.45
+ ,9.45
+ ,9.55
+ ,8.46
+ ,8.85
+ ,9.51
+ ,9.8
+ ,9.8
+ ,9.8
+ ,10.01
+ ,9.65
+ ,10.12
+ ,10.04
+ ,9.59
+ ,9.59
+ ,9.59
+ ,9.28
+ ,9.02
+ ,9.04
+ ,9.08
+ ,9.3
+ ,9.3
+ ,9.3
+ ,8.97
+ ,9.58
+ ,9.82
+ ,9.29
+ ,9.43
+ ,9.43
+ ,9.43
+ ,9.59
+ ,10.04
+ ,9.51
+ ,9.53
+ ,9.67
+ ,9.67
+ ,9.67
+ ,9.64
+ ,9.16
+ ,9.13
+ ,8.8
+ ,9.14
+ ,9.14
+ ,9.14
+ ,8.9
+ ,8.96
+ ,9.02
+ ,9.21
+ ,9.48
+ ,9.48
+ ,9.48
+ ,9.57
+ ,9.95
+ ,9.74
+ ,9.36
+ ,9.11
+ ,9.11
+ ,9.11
+ ,9.58
+ ,9.44
+ ,9.25
+ ,9.04
+ ,9.1
+ ,9.1
+ ,9.1
+ ,8.35
+ ,7.39
+ ,6.68
+ ,6.84
+ ,8.02
+ ,8.02
+ ,8.02
+ ,7.7
+ ,7.41
+ ,6.97
+ ,6.53
+ ,5.2
+ ,5.2
+ ,5.2
+ ,3.97
+ ,4.3
+ ,4.89
+ ,5.46
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,5.42
+ ,1.19
+ ,0.88
+ ,0.88
+ ,0.88
+ ,0.88
+ ,1.03
+ ,1.05
+ ,1
+ ,1
+ ,1
+ ,1
+ ,1
+ ,0.89
+ ,0.89
+ ,0.84
+ ,0.84
+ ,0.89
+ ,0.89
+ ,0.89
+ ,1
+ ,1.07
+ ,1.15
+ ,1.04
+ ,1.04
+ ,1.04
+ ,1.04
+ ,1
+ ,0.9
+ ,0.84
+ ,0.85
+ ,0.84
+ ,0.84
+ ,0.84
+ ,0.8
+ ,0.71
+ ,0.64
+ ,0.58
+ ,0.57
+ ,0.57
+ ,0.57
+ ,0.59
+ ,0.57
+ ,0.6
+ ,0.7
+ ,0.74
+ ,0.74
+ ,0.74
+ ,0.66
+ ,0.7
+ ,0.66
+ ,0.63
+ ,0.62
+ ,0.69
+ ,0.71
+ ,0.82)
> par3 = ''
> par2 = ''
> par1 = ''
> ylab = 'Price'
> xlab = 'Time'
> 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/1jsa41229014812.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/2eqra1229014812.tab") 
> 
> system("convert tmp/1jsa41229014812.ps tmp/1jsa41229014812.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.399   0.182   1.267