R version 2.15.2 (2012-10-26) -- "Trick or Treat"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i686-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(-6.141574074074070
+ ,2.766759259259260
+ ,-2.474768518518540
+ ,-24.749212962963000
+ ,-27.341990740740700
+ ,-24.099629629629600
+ ,-33.038657407407400
+ ,-8.168935185185200
+ ,-7.480462962962920
+ ,7.314953703703800
+ ,37.235092592592600
+ ,-3.204907407407350
+ ,51.437592592592600
+ ,27.533425925925900
+ ,4.379398148148080
+ ,30.009120370370400
+ ,-13.662824074074000
+ ,-0.0871296296296009
+ ,28.698842592592600
+ ,45.426898148148200
+ ,31.498703703703800
+ ,19.148287037037100
+ ,12.155925925925900
+ ,-21.496574074074000
+ ,-5.812407407407420
+ ,-26.724907407407400
+ ,-3.037268518518490
+ ,-15.228379629629600
+ ,6.978842592592570
+ ,23.204537037037100
+ ,-14.909490740740800
+ ,-25.098101851851800
+ ,-17.213796296296200
+ ,-11.485046296296200
+ ,-4.577407407407350
+ ,-37.146574074074100
+ ,-13.445740740740700
+ ,-5.920740740740710
+ ,22.550231481481500
+ ,26.934120370370400
+ ,29.599675925925900
+ ,9.358703703703700
+ ,-17.288657407407400
+ ,-17.243935185185200
+ ,-27.347129629629600
+ ,-1.689212962962960
+ ,16.630925925926000
+ ,-28.521574074074100
+ ,3.866759259259250
+ ,20.929259259259300
+ ,22.529398148148100
+ ,14.575787037037000
+ ,5.991342592592590
+ ,2.158703703703710
+ ,-9.538657407407440
+ ,-30.718935185185200
+ ,-18.667962962962900
+ ,15.460787037037100
+ ,11.443425925925900
+ ,-46.979907407407400
+ ,-33.029074074074100
+ ,-35.524907407407400
+ ,-24.133101851851800
+ ,-30.890879629629600
+ ,-25.216990740740800
+ ,-8.687129629629570
+ ,21.478009259259300
+ ,39.681064814814800
+ ,52.869537037037000
+ ,61.014953703703700
+ ,52.914259259259300
+ ,-24.896574074074100
+ ,-2.716574074074060
+ ,9.329259259259230
+ ,28.746064814814800
+ ,0.100787037037037
+ ,4.274675925925920
+ ,-0.216296296296264
+ ,0.0946759259259125
+ ,-9.410601851851880
+ ,-4.651296296296270
+ ,29.556620370370400
+ ,8.385092592592570
+ ,-40.050740740740800
+ ,-33.420740740740800
+ ,-9.849907407407440
+ ,-8.512268518518510
+ ,4.634120370370400
+ ,9.953842592592600
+ ,13.600370370370400
+ ,-15.642824074074000
+ ,-21.731435185185100
+ ,2.632037037037090
+ ,5.664953703703760
+ ,36.035092592592500
+ ,0.678425925925978
+ ,5.866759259259250
+ ,-14.716574074074100
+ ,-14.641435185185200
+ ,-15.536712962963000
+ ,14.983009259259200
+ ,20.758703703703700
+ ,2.936342592592670
+ ,-16.456435185185100
+ ,-20.455462962963000
+ ,-2.014212962962920
+ ,15.955925925925900
+ ,-12.292407407407400
+ ,-23.616574074074000
+ ,-37.349907407407400
+ ,-39.524768518518400
+ ,-47.378379629629500
+ ,-21.796157407407500
+ ,-20.374629629629700
+ ,1.503009259259220
+ ,41.001898148148300
+ ,53.257037037037100
+ ,72.781620370370400
+ ,62.414259259259400
+ ,22.857592592592700
+ ,31.916759259259300
+ ,15.337592592592600
+ ,-15.941435185185200
+ ,-21.074212962962900
+ ,-26.337824074074000
+ ,13.037870370370400
+ ,13.061342592592700
+ ,18.897731481481500
+ ,11.248703703703700
+ ,-16.535046296296200
+ ,-15.923240740740700
+ ,-40.571574074074000
+ ,-27.945740740740700
+ ,-16.362407407407400
+ ,-9.312268518518580
+ ,10.463287037037000
+ ,29.228842592592600
+ ,14.667037037037100
+ ,-1.538657407407360
+ ,-35.152268518518500
+ ,14.136203703703700
+ ,-2.880879629629530
+ ,-7.306574074074090
+ ,-6.288240740740660
+ ,-18.591574074074100
+ ,-16.654074074074100
+ ,-50.558101851851900
+ ,-23.115879629629700
+ ,-12.137824074074000
+ ,26.821203703703700
+ ,30.869675925925900
+ ,47.610231481481500
+ ,41.982037037037000
+ ,24.485787037037000
+ ,22.564259259259400
+ ,15.811759259259200
+ ,10.891759259259300
+ ,-1.674907407407370
+ ,-14.495601851851900
+ ,-6.924212962962880
+ ,-13.171157407407300
+ ,3.175370370370440
+ ,-2.759490740740660
+ ,-17.185601851851900
+ ,-4.576296296296330
+ ,-5.085046296296240
+ ,28.260092592592500
+ ,-15.821574074074000
+ ,-28.158240740740700
+ ,3.166759259259270
+ ,-19.341435185185100
+ ,-26.657546296296300
+ ,0.703842592592707
+ ,1.512870370370360
+ ,12.311342592592700
+ ,28.043564814814800
+ ,9.048703703703780
+ ,3.877453703703740
+ ,19.189259259259300
+ ,6.174259259259320
+ ,-9.370740740740640
+ ,-14.041574074074100
+ ,-21.624768518518500
+ ,-11.824212962963000
+ ,15.695509259259300
+ ,9.662870370370290
+ ,11.811342592592600
+ ,1.264398148148130
+ ,2.886203703703760
+ ,5.627453703703800
+ ,-0.677407407407429
+ ,22.803425925925900
+ ,-25.495740740740700
+ ,-2.616574074074040
+ ,-9.812268518518580
+ ,3.213287037037050
+ ,-3.375324074074060
+ ,7.475370370370340
+ ,-9.859490740740630
+ ,8.239398148148210
+ ,-12.197129629629600
+ ,11.348287037037100
+ ,8.305925925925920
+ ,24.136759259259300
+ ,-7.654074074074060
+ ,4.950092592592570
+ ,-1.658101851851940
+ ,6.992453703703750
+ ,8.512175925925990
+ ,0.99620370370377
+ ,-23.096990740740800
+ ,-41.218935185185200
+ ,-26.767962962962900
+ ,-9.880879629629650
+ ,19.651759259259200
+ ,28.503425925926000
+ ,0.687592592592637
+ ,9.500092592592580
+ ,-4.153935185185160
+ ,8.292453703703760
+ ,0.0538425925926731
+ ,8.692037037037040
+ ,-16.096990740740700
+ ,-22.564768518518500
+ ,-24.197129629629700
+ ,-16.401712962962900
+ ,-19.452407407407400
+ ,23.120092592592600
+ ,10.862592592592600
+ ,11.758425925925900
+ ,25.041898148148100
+ ,47.388287037037000
+ ,22.541342592592600
+ ,3.729537037037060
+ ,-33.892824074074100
+ ,-19.385601851851800
+ ,-29.772129629629600
+ ,-30.072546296296300
+ ,-24.639907407407400
+ ,36.232592592592700
+ ,24.037592592592600
+ ,13.554259259259300
+ ,17.637731481481500
+ ,24.304953703703700
+ ,9.399675925925980
+ ,-6.653796296296260
+ ,-33.080324074074100
+ ,-36.177268518518500
+ ,-32.142962962963000
+ ,-15.022546296296300
+ ,-20.227407407407400
+ ,14.495092592592600
+ ,16.129259259259200
+ ,10.758425925926000
+ ,30.129398148148100
+ ,25.834120370370400
+ ,-17.200324074074000
+ ,-36.553796296296300
+ ,-42.726157407407400
+ ,-22.718935185185100
+ ,-16.497129629629600
+ ,-5.610046296296220
+ ,-15.298240740740800
+ ,24.078425925925900
+ ,16.958425925925900
+ ,4.395925925925840
+ ,17.029398148148100
+ ,18.784120370370400
+ ,23.308009259259300
+ ,17.371203703703800
+ ,15.123842592592600
+ ,3.368564814814870
+ ,-5.613796296296300
+ ,-16.835046296296300
+ ,-28.069074074074100
+ ,7.570092592592570
+ ,16.704259259259200
+ ,21.462592592592600
+ ,17.629398148148100
+ ,6.271620370370390
+ ,9.658009259259300
+ ,-3.074629629629610
+ ,-0.163657407407300
+ ,-9.793935185185030
+ ,-4.380462962962890
+ ,-14.547546296296300
+ ,-26.214907407407400
+ ,13.836759259259400
+ ,19.683425925925900
+ ,25.333425925926000
+ ,29.033564814814800
+ ,31.163287037037000
+ ,-6.096157407407420
+ ,-17.620462962963000
+ ,-29.921990740740700
+ ,-15.256435185185200
+ ,-20.292962962962900
+ ,-8.635046296296310
+ ,-21.385740740740700
+ ,11.682592592592700
+ ,6.354259259259320
+ ,1.208425925925890
+ ,12.975231481481500
+ ,-12.945046296296300
+ ,-6.921157407407350
+ ,-11.587129629629700
+ ,5.023842592592640
+ ,4.810231481481480
+ ,-17.326296296296300
+ ,-31.926712962962900
+ ,-38.823240740740700
+ ,-3.392407407407350
+ ,-11.624907407407400
+ ,-43.874907407407400
+ ,-22.087268518518400
+ ,-51.745046296296200
+ ,-38.112824074074100
+ ,-25.003796296296300
+ ,83.611342592592700
+ ,64.876898148148300
+ ,72.002870370370500
+ ,39.727453703703800
+ ,25.347592592592700
+ ,36.120092592592600
+ ,21.125092592592600
+ ,2.670925925926210
+ ,8.204398148148360
+ ,3.575787037037120
+ ,-9.662824074074020
+ ,-5.166296296296200
+ ,25.965509259259300
+ ,8.422731481481500
+ ,-15.247129629629600
+ ,-34.510046296296400
+ ,-69.902407407407600
+ ,-6.363240740740710
+ ,13.433425925926100
+ ,20.645925925926100
+ ,8.908564814815000
+ ,6.642453703703720
+ ,13.512175925926000
+ ,6.483703703703780
+ ,19.365509259259400
+ ,42.835231481481600
+ ,15.848703703703800
+ ,-37.489212962963100
+ ,-52.589907407407400
+ ,12.640925925925900
+ ,-4.320740740740920
+ ,18.620925925925900
+ ,15.125231481481600
+ ,17.500787037037200
+ ,15.249675925926000
+ ,-24.970462962963000
+ ,10.311342592592600
+ ,-7.585601851851950
+ ,-3.972129629629650
+ ,-36.776712962963100
+ ,-32.789907407407400
+ ,-15.104907407407400)
> par2 = '0'
> par1 = '0'
> par2 <- '0'
> par1 <- '0'
> #'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
> #Author: root
> #To cite this work: Wessa P., (2012), Univariate Explorative Data Analysis (v1.0.9) 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
> #
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> x <- as.ts(x)
> library(lattice)
> postscript(file="/var/fisher/rcomp/tmp/1uykd1355322126.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/fisher/rcomp/tmp/2ym7u1355322126.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/fisher/rcomp/tmp/3y08t1355322126.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/fisher/rcomp/tmp/4ce7x1355322126.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> qqnorm(x)
> qqline(x)
> grid()
> dev.off()
null device 
          1 
> if (par2 > 0)
+ {
+ postscript(file="/var/fisher/rcomp/tmp/5yay01355322126.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='Lag plot (k=1), lowess, and regression line')
+ lines(lowess(z))
+ abline(lm(z))
+ dev.off()
+ if (par2 > 1) {
+ postscript(file="/var/fisher/rcomp/tmp/62nzt1355322126.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
+ dum <- cbind(lag(x,k=par2),x)
+ dum
+ dum1 <- dum[(par2+1):length(x),]
+ dum1
+ z <- as.data.frame(dum1)
+ z
+ mylagtitle <- 'Lag plot (k='
+ mylagtitle <- paste(mylagtitle,par2,sep='')
+ mylagtitle <- paste(mylagtitle,'), and lowess',sep='')
+ plot(z,main=mylagtitle)
+ lines(lowess(z))
+ dev.off()
+ }
+ postscript(file="/var/fisher/rcomp/tmp/7m38r1355322126.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()
+ }
> summary(x)
     Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
-69.90000 -16.47000   0.07426  -0.04630  15.12000  83.61000 
> 
> #Note: the /var/fisher/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/fisher/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/fisher/rcomp/tmp/8ed1c1355322126.tab") 
> 
> try(system("convert tmp/1uykd1355322126.ps tmp/1uykd1355322126.png",intern=TRUE))
character(0)
> try(system("convert tmp/2ym7u1355322126.ps tmp/2ym7u1355322126.png",intern=TRUE))
character(0)
> try(system("convert tmp/3y08t1355322126.ps tmp/3y08t1355322126.png",intern=TRUE))
character(0)
> try(system("convert tmp/4ce7x1355322126.ps tmp/4ce7x1355322126.png",intern=TRUE))
character(0)
> try(system("convert tmp/5yay01355322126.ps tmp/5yay01355322126.png",intern=TRUE))
convert: unable to open image `tmp/5yay01355322126.ps':  @ error/blob.c/OpenBlob/2587.
convert: missing an image filename `tmp/5yay01355322126.png' @ error/convert.c/ConvertImageCommand/3011.
character(0)
attr(,"status")
[1] 1
Warning message:
running command 'convert tmp/5yay01355322126.ps tmp/5yay01355322126.png' had status 1 
> try(system("convert tmp/62nzt1355322126.ps tmp/62nzt1355322126.png",intern=TRUE))
convert: unable to open image `tmp/62nzt1355322126.ps':  @ error/blob.c/OpenBlob/2587.
convert: missing an image filename `tmp/62nzt1355322126.png' @ error/convert.c/ConvertImageCommand/3011.
character(0)
attr(,"status")
[1] 1
Warning message:
running command 'convert tmp/62nzt1355322126.ps tmp/62nzt1355322126.png' had status 1 
> try(system("convert tmp/7m38r1355322126.ps tmp/7m38r1355322126.png",intern=TRUE))
convert: unable to open image `tmp/7m38r1355322126.ps':  @ error/blob.c/OpenBlob/2587.
convert: missing an image filename `tmp/7m38r1355322126.png' @ error/convert.c/ConvertImageCommand/3011.
character(0)
attr(,"status")
[1] 1
Warning message:
running command 'convert tmp/7m38r1355322126.ps tmp/7m38r1355322126.png' had status 1 
> 
> 
> proc.time()
   user  system elapsed 
  2.756   0.758   3.526