R version 2.7.0 (2008-04-22)
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(32.86
+ ,33.71
+ ,34.24
+ ,33.30
+ ,32.83
+ ,32.55
+ ,32.14
+ ,32.39
+ ,32.28
+ ,31.90
+ ,32.97
+ ,33.48
+ ,33.21
+ ,34.27
+ ,34.52
+ ,34.30
+ ,33.62
+ ,33.43
+ ,34.32
+ ,34.81
+ ,35.14
+ ,34.41
+ ,33.25
+ ,32.55
+ ,32.95
+ ,32.35
+ ,33.14
+ ,33.67
+ ,34.84
+ ,36.25
+ ,36.66
+ ,37.19
+ ,36.88
+ ,37.07
+ ,37.57
+ ,37.34
+ ,37.08
+ ,38.60
+ ,38.71
+ ,38.84
+ ,39.14
+ ,38.71
+ ,38.22
+ ,37.52
+ ,38.60
+ ,39.10
+ ,40.40
+ ,39.58
+ ,39.19
+ ,39.84
+ ,40.11
+ ,39.49
+ ,40.09
+ ,40.20
+ ,40.77
+ ,41.70
+ ,41.02
+ ,41.46
+ ,42.13
+ ,42.49
+ ,42.01
+ ,42.92
+ ,41.83
+ ,41.89
+ ,42.20
+ ,42.38
+ ,43.89
+ ,44.18
+ ,45.11
+ ,44.61
+ ,45.59
+ ,46.48
+ ,45.71
+ ,45.42
+ ,45.90
+ ,46.99
+ ,47.27
+ ,47.24
+ ,48.43
+ ,47.13
+ ,47.02
+ ,46.69
+ ,48.73
+ ,48.06
+ ,46.68
+ ,47.88
+ ,47.29
+ ,48.07
+ ,51.84
+ ,52.87
+ ,55.98
+ ,59.60
+ ,59.90
+ ,57.52
+ ,59.03
+ ,55.59
+ ,57.05
+ ,56.54
+ ,52.94
+ ,55.99
+ ,53.73
+ ,54.27
+ ,50.85
+ ,51.15
+ ,53.79
+ ,54.12
+ ,55.29
+ ,57.66
+ ,55.07
+ ,55.22
+ ,56.25
+ ,55.08
+ ,56.35
+ ,55.64
+ ,55.01
+ ,58.10
+ ,55.98
+ ,55.59
+ ,57.75
+ ,60.14
+ ,60.62
+ ,60.74
+ ,60.47
+ ,56.72
+ ,55.80
+ ,52.69
+ ,53.59
+ ,55.10
+ ,54.06
+ ,55.72
+ ,57.50
+ ,56.50
+ ,55.96
+ ,55.54
+ ,54.62
+ ,53.73
+ ,56.85
+ ,58.32
+ ,57.90
+ ,58.62
+ ,58.72
+ ,57.15
+ ,58.22
+ ,58.10
+ ,58.64
+ ,56.91
+ ,58.71
+ ,58.82
+ ,58.52
+ ,58.97
+ ,59.20
+ ,62.50
+ ,60.66
+ ,61.54
+ ,60.15
+ ,58.42
+ ,59.51
+ ,59.58
+ ,56.83
+ ,56.83
+ ,56.15
+ ,59.29
+ ,60.73
+ ,62.72
+ ,61.78
+ ,64.75
+ ,66.38
+ ,67.70
+ ,67.09
+ ,68.38
+ ,66.12
+ ,64.87
+ ,62.77
+ ,63.02
+ ,65.15
+ ,65.56
+ ,66.41
+ ,67.53
+ ,69.38
+ ,70.05
+ ,72.57
+ ,71.26
+ ,70.58
+ ,75.28
+ ,73.62
+ ,75.38
+ ,73.53
+ ,74.72
+ ,71.42
+ ,70.85
+ ,71.70
+ ,71.78
+ ,73.66
+ ,73.66
+ ,73.73
+ ,73.66
+ ,68.56
+ ,69.65
+ ,68.41
+ ,73.47
+ ,73.89
+ ,75.62
+ ,75.81
+ ,78.11
+ ,78.69
+ ,78.88
+ ,79.89
+ ,81.89
+ ,82.13
+ ,82.83
+ ,81.32
+ ,84.52
+ ,81.16
+ ,82.50
+ ,85.03
+ ,88.84
+ ,90.42
+ ,84.18
+ ,80.73
+ ,83.45
+ ,83.08
+ ,84.61
+ ,84.65
+ ,84.67
+ ,87.56
+ ,91.15
+ ,91.40
+ ,90.21
+ ,92.31
+ ,90.98
+ ,91.05
+ ,86.83
+ ,86.09
+ ,84.36
+ ,87.52
+ ,88.38
+ ,90.70
+ ,90.38
+ ,92.61
+ ,94.17
+ ,91.28
+ ,89.51
+ ,84.34
+ ,83.21
+ ,85.20
+ ,81.35
+ ,84.99
+ ,86.78
+ ,86.62
+ ,82.12
+ ,85.53
+ ,84.62
+ ,84.84
+ ,88.35
+ ,88.23
+ ,93.58
+ ,92.05
+ ,89.21
+ ,88.82
+ ,92.67
+ ,90.70
+ ,89.35)
> par3 = 'Exon mobile stock weekly bars'
> par2 = 'Yahoo EOW'
> par1 = 'XOM_EOW'
> ylab = 'value'
> xlab = 'index'
> 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/freestat/rcomp/tmp/1e7q61212173913.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/freestat/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/freestat/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/freestat/rcomp/tmp/20bqo1212173913.tab") 
> 
> system("convert tmp/1e7q61212173913.ps tmp/1e7q61212173913.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.849   0.224   0.877