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(-49.5493497703707
+ ,-34.5244589213124
+ ,-3.91006280789517
+ ,14.6313371136598
+ ,-16.7358782201586
+ ,-48.8615512151807
+ ,-77.8868483141492
+ ,-52.8243216396381
+ ,-45.4459004030628
+ ,-11.8820480510030
+ ,-25.5304783937354
+ ,20.2338922716193
+ ,-21.9420653281128
+ ,23.1907193380687
+ ,14.2843898128731
+ ,-36.3573860047354
+ ,33.4686325324833
+ ,-34.0974551131747
+ ,-5.09014031706005
+ ,-4.25345940866923
+ ,14.8564460348288
+ ,18.8607130375245
+ ,-2.46525460356892
+ ,-1.06098760087327
+ ,-17.290892109167
+ ,-15.5131820397076
+ ,-17.2049426803877
+ ,-36.6798487063743
+ ,-13.1060400146913
+ ,0.0857206259887766
+ ,53.7756017864013
+ ,56.6662296033538
+ ,3.76485816524712
+ ,54.9836940524584
+ ,-38.9231939514776
+ ,-19.5189269487819
+ ,31.9337349072222
+ ,11.4479582495412
+ ,-25.8786696625430
+ ,56.3992435318715
+ ,-2.89893769557475
+ ,14.1096472059418
+ ,-28.3133945167058
+ ,-20.4064607522117
+ ,66.8966785623235
+ ,-39.3512642805164
+ ,48.3239868281212
+ ,29.2125572581408
+ ,14.2248044635090
+ ,26.8845625839714
+ ,24.3119726420195
+ ,-17.2382153060072
+ ,-15.8952814463814
+ ,-2.91808969021696
+ ,-1.74390510248044
+ ,20.8180121971652
+ ,-40.0720823593368
+ ,-22.6110947584635
+ ,18.5949401206607
+ ,-28.866534980105
+ ,42.6237678369192
+ ,-11.4855992105612
+ ,8.39731269593327
+ ,19.2448693715856
+ ,15.1675048443228
+ ,71.6817281866418
+ ,59.2586864639942)
> par2 = '36'
> 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/rcomp/tmp/13n671292506439.ps",horizontal=F,onefile=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/rcomp/tmp/23n671292506439.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> hist(x)
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/www/rcomp/tmp/33n671292506439.ps",horizontal=F,onefile=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/rcomp/tmp/4ee6a1292506439.ps",horizontal=F,onefile=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/rcomp/tmp/5ee6a1292506439.ps",horizontal=F,onefile=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/rcomp/tmp/6pnnv1292506439.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
+ acf(x,lag.max=par2,main='Autocorrelation Function')
+ grid()
+ dev.off()
+ }
null device 
          1 
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-77.890 -22.280  -2.899   0.000  19.740  71.680 
> 
> #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,'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/rcomp/tmp/7dq5z1292506440.tab") 
> 
> try(system("convert tmp/13n671292506439.ps tmp/13n671292506439.png",intern=TRUE))
character(0)
> try(system("convert tmp/23n671292506439.ps tmp/23n671292506439.png",intern=TRUE))
character(0)
> try(system("convert tmp/33n671292506439.ps tmp/33n671292506439.png",intern=TRUE))
character(0)
> try(system("convert tmp/4ee6a1292506439.ps tmp/4ee6a1292506439.png",intern=TRUE))
character(0)
> try(system("convert tmp/5ee6a1292506439.ps tmp/5ee6a1292506439.png",intern=TRUE))
character(0)
> try(system("convert tmp/6pnnv1292506439.ps tmp/6pnnv1292506439.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  1.640   1.140   2.821