R version 2.6.1 (2007-11-26)
Copyright (C) 2007 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(0.0941985320320626
+ ,0.653503812757776
+ ,-1.53391896500750
+ ,-3.36057793208943
+ ,10.5123096036122
+ ,-1.01581457573704
+ ,-2.67820603570839
+ ,-9.74826523524703
+ ,3.63711950635251
+ ,9.50223910169676
+ ,-0.328071065750664
+ ,-0.99090283824161
+ ,3.15955488055449
+ ,4.274504946209
+ ,-2.96994671532128
+ ,-7.49489553709745
+ ,0.326324458907605
+ ,-2.56567975939718
+ ,4.06810804201443
+ ,5.30985531157956
+ ,-8.08565126748348
+ ,5.28645116189662
+ ,7.37889520393211
+ ,-6.11905687839581
+ ,-3.37762220941437
+ ,-8.60601896334157
+ ,2.58282247115929
+ ,10.0203248408892
+ ,7.07928930610679
+ ,-2.75364586230294
+ ,3.41775084223743
+ ,-1.59740992982799
+ ,0.64919709507294
+ ,2.86097471341661
+ ,-3.51941245730982
+ ,5.64985077275929
+ ,4.3083362367212
+ ,-4.39107605256271
+ ,-5.85155663863847
+ ,-5.47131236424465
+ ,-2.29984941727564
+ ,-0.144024631394743
+ ,8.08067861936608
+ ,-7.42975884662829
+ ,0.0227113802409349
+ ,-2.47026516439664
+ ,-2.11466659014063
+ ,7.8747637202872
+ ,4.65851639094002
+ ,3.60426918741376
+ ,-3.64324288209951
+ ,7.25784133565925
+ ,-7.62087973892363
+ ,13.8299693619635
+ ,1.28408834041515
+ ,-0.320572241143239
+ ,-2.89707141277690
+ ,4.92335970737777
+ ,11.9868131228538
+ ,10.0627280987577
+ ,-2.21884745321978
+ ,3.97445806945834
+ ,0.560126237823582
+ ,3.34160376915877
+ ,-2.85636766640084
+ ,4.38042429228536
+ ,1.43160354600064
+ ,-0.489188992828318
+ ,-1.23442104165709)
> par2 = '0'
> par1 = '0'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: Wessa P., (2007), Univariate Explorative Data Analysis (v1.0.5) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_edauni.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> x <- as.ts(x)
> library(lattice)
> postscript(file="/var/www/html/rcomp/tmp/18hy11198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(x,type='l',main='Run Sequence Plot',xlab='time or index',ylab='value')
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/2hhjj1198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> hist(x)
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/368ye1198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> if (par1 > 0)
+ {
+ densityplot(~x,col='black',main=paste('Density Plot   bw = ',par1),bw=par1)
+ } else {
+ densityplot(~x,col='black',main='Density Plot')
+ }
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/44q8l1198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> qqnorm(x)
> grid()
> dev.off()
null device 
          1 
> if (par2 > 0)
+ {
+ postscript(file="/var/www/html/rcomp/tmp/5tdo31198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
+ dum <- cbind(lag(x,k=1),x)
+ dum
+ dum1 <- dum[2:length(x),]
+ dum1
+ z <- as.data.frame(dum1)
+ z
+ plot(z,main=paste('Lag plot, lowess, and regression line'))
+ lines(lowess(z))
+ abline(lm(z))
+ dev.off()
+ postscript(file="/var/www/html/rcomp/tmp/6m4io1198086284.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
+ acf(x,lag.max=par2,main='Autocorrelation Function')
+ grid()
+ dev.off()
+ }
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-9.7480 -2.7540  0.0942  0.8674  4.3080 13.8300 
> load(file='/var/www/html/rcomp/createtable')
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Descriptive Statistics',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'# observations',header=TRUE)
> a<-table.element(a,length(x))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'minimum',header=TRUE)
> a<-table.element(a,min(x))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Q1',header=TRUE)
> a<-table.element(a,quantile(x,0.25))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'median',header=TRUE)
> a<-table.element(a,median(x))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'mean',header=TRUE)
> a<-table.element(a,mean(x))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Q3',header=TRUE)
> a<-table.element(a,quantile(x,0.75))
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'maximum',header=TRUE)
> a<-table.element(a,max(x))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/7vlj91198086285.tab") 
> 
> system("convert tmp/18hy11198086284.ps tmp/18hy11198086284.png")
> system("convert tmp/2hhjj1198086284.ps tmp/2hhjj1198086284.png")
> system("convert tmp/368ye1198086284.ps tmp/368ye1198086284.png")
> system("convert tmp/44q8l1198086284.ps tmp/44q8l1198086284.png")
> system("convert tmp/5tdo31198086284.ps tmp/5tdo31198086284.png")
convert: unable to open image `tmp/5tdo31198086284.ps': No such file or directory.
convert: missing an image filename `tmp/5tdo31198086284.png'.
> system("convert tmp/6m4io1198086284.ps tmp/6m4io1198086284.png")
convert: unable to open image `tmp/6m4io1198086284.ps': No such file or directory.
convert: missing an image filename `tmp/6m4io1198086284.png'.
> 
> 
> proc.time()
   user  system elapsed 
  2.304   1.017   2.483