R version 2.12.1 (2010-12-16)
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(145.16
+ ,146.64
+ ,147.09
+ ,142.35
+ ,148.34
+ ,149.66
+ ,150.62
+ ,150.54
+ ,150.43
+ ,151.26
+ ,153.72
+ ,154.46
+ ,155.90
+ ,156.50
+ ,158.06
+ ,159.07
+ ,160.59
+ ,160.97
+ ,161.25
+ ,163.22
+ ,164.68
+ ,166.16
+ ,167.37
+ ,168.39
+ ,170.48
+ ,171.87
+ ,172.06
+ ,171.95
+ ,174.05
+ ,175.02
+ ,175.65
+ ,176.21
+ ,177.13
+ ,178.28
+ ,179.99
+ ,181.70
+ ,182.97
+ ,183.00
+ ,183.92
+ ,184.26
+ ,185.98
+ ,187.38
+ ,188.17
+ ,189.42
+ ,189.83
+ ,190.36
+ ,191.39
+ ,192.14
+ ,192.71
+ ,193.61
+ ,193.68
+ ,194.11
+ ,195.36
+ ,197.38
+ ,198.97
+ ,199.75
+ ,199.95
+ ,199.98
+ ,201.08
+ ,201.08
+ ,201.49
+ ,201.38
+ ,201.86
+ ,201.92
+ ,202.17
+ ,202.32
+ ,202.01
+ ,202.65
+ ,202.18
+ ,202.45
+ ,202.43
+ ,202.62
+ ,203.32
+ ,203.09
+ ,202.94
+ ,203.11
+ ,203.96
+ ,204.36
+ ,204.57
+ ,205.51
+ ,205.60
+ ,205.83
+ ,206.56
+ ,207.21
+ ,206.84
+ ,206.62
+ ,205.99
+ ,206.05
+ ,205.88
+ ,206.47
+ ,206.54
+ ,207.47
+ ,207.67
+ ,208.02
+ ,208.65
+ ,209.10
+ ,209.33
+ ,209.39
+ ,209.25
+ ,210.01
+ ,210.81
+ ,211.75
+ ,212.24
+ ,213.67
+ ,213.87
+ ,214.27
+ ,214.97
+ ,215.69
+ ,216.75
+ ,217.02
+ ,216.74
+ ,217.59
+ ,218.39
+ ,218.91
+ ,219.45
+ ,220.45
+ ,220.51
+ ,220.65
+ ,221.44
+ ,222.71
+ ,224.75
+ ,226.27
+ ,225.46
+ ,225.18
+ ,232.03
+ ,232.76
+ ,232.82
+ ,233.07
+ ,233.92
+ ,234.67
+ ,235.76
+ ,235.36
+ ,235.78
+ ,236.28
+ ,237.03
+ ,237.01
+ ,238.61
+ ,239.22
+ ,239.63
+ ,239.84
+ ,240.22
+ ,240.26
+ ,241.84
+ ,242.86
+ ,242.42
+ ,242.72
+ ,243.03
+ ,243.40
+ ,244.38
+ ,245.20
+ ,245.17
+ ,245.63
+ ,246.36
+ ,246.88
+ ,248.40
+ ,248.80
+ ,248.38
+ ,247.86
+ ,247.86
+ ,247.92
+ ,248.97
+ ,249.65
+ ,249.45
+ ,249.84
+ ,249.76
+ ,250.03
+ ,251.36
+ ,251.99
+ ,251.34
+ ,250.88
+ ,251.51
+ ,251.55
+ ,253.84
+ ,254.34
+ ,254.51
+ ,254.95
+ ,254.51
+ ,254.53
+ ,256.20
+ ,256.82
+ ,256.30
+ ,257.05
+ ,257.45
+ ,257.90
+ ,259.70
+ ,259.38
+ ,258.22
+ ,258.15
+ ,258.53
+ ,258.97
+ ,261.05
+ ,261.57
+ ,260.45
+ ,260.40
+ ,261.09
+ ,260.86
+ ,260.79
+ ,261.30
+ ,260.87
+ ,262.04
+ ,263.35
+ ,263.09
+ ,263.73
+ ,262.73
+ ,262.60
+ ,262.66
+ ,262.60
+ ,262.40
+ ,263.27
+ ,263.86
+ ,264.06
+ ,265.11
+ ,265.57
+ ,265.03
+ ,265.44
+ ,265.14
+ ,265.72
+ ,266.08
+ ,266.62
+ ,267.49
+ ,267.97
+ ,269.00
+ ,270.02
+ ,270.53
+ ,271.30
+ ,272.32
+ ,272.86
+ ,272.78
+ ,274.65
+ ,273.98
+ ,274.88
+ ,274.16
+ ,273.88
+ ,275.06
+ ,275.67
+ ,278.07
+ ,279.81
+ ,280.30
+ ,280.09
+ ,280.07
+ ,280.86
+ ,280.43
+ ,280.73
+ ,280.14
+ ,281.83
+ ,282.29
+ ,283.03
+ ,283.11
+ ,283.55
+ ,282.75
+ ,283.67
+ ,283.60
+ ,284.39
+ ,284.06
+ ,283.83
+ ,283.98
+ ,285.23
+ ,287.20
+ ,288.02
+ ,287.30
+ ,286.49
+ ,287.33
+ ,287.89
+ ,288.66
+ ,289.50
+ ,288.56
+ ,289.09
+ ,288.92
+ ,289.76
+ ,290.83
+ ,291.27
+ ,292.83
+ ,293.95
+ ,293.82
+ ,294.82
+ ,295.18
+ ,295.38
+ ,296.82
+ ,296.46
+ ,295.49
+ ,296.31
+ ,298.30
+ ,300.22
+ ,300.91
+ ,301.34
+ ,302.26
+ ,304.08
+ ,304.36
+ ,304.72
+ ,304.16
+ ,304.08
+ ,304.03
+ ,304.11
+ ,305.43
+ ,305.31
+ ,306.81
+ ,307.96
+ ,307.90
+ ,308.96
+ ,309.34
+ ,308.46
+ ,307.84
+ ,308.60
+ ,309.01
+ ,309.16
+ ,310.84
+ ,310.87
+ ,312.28
+ ,311.89
+ ,311.87
+ ,313.19
+ ,312.81
+ ,313.10
+ ,314.75
+ ,317.68
+ ,318.57
+ ,319.86
+ ,322.15
+ ,324.50
+ ,325.24
+ ,328.15
+ ,329.97
+ ,331.70
+ ,329.67
+ ,330.20
+ ,329.62
+ ,327.65
+ ,326.94
+ ,327.26
+ ,328.38
+ ,326.50
+ ,327.18
+ ,326.94
+ ,326.32
+ ,326.12
+ ,327.12
+ ,326.27
+ ,326.41
+ ,327.26
+ ,327.79
+ ,329.29
+ ,330.67
+ ,331.91
+ ,333.05
+ ,334.38
+ ,334.35
+ ,334.49
+ ,334.70
+ ,335.76
+ ,336.23
+ ,336.64
+ ,337.96
+ ,339.90
+ ,341.87
+ ,343.58
+ ,344.43
+ ,345.57
+ ,346.63
+ ,347.04
+ ,346.75
+ ,347.69
+ ,348.22)
> par4 = '12'
> par3 = ''
> par2 = ''
> par1 = ''
> ylimmax = ''
> ylimmin = ''
> ylab = 'CPI-value'
> xlab = 'Time (months)'
> main = ''
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Dr. Ian E. Holliday
> #To cite this work: Ian E. Holliday, 2009, 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: 
> #Technical description: 
> if (par4 != 'No season') {
+ par4 <- as.numeric(par4)
+ if (par4 < 4) par4 <- 12
+ }
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  142.4   207.3   256.9   252.7   292.4   348.2 
> n <- length(x)
> postscript(file="/var/www/rcomp/tmp/1llzc1324066130.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> if (par4=='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,10))
+ }
> if (par4!='No season') {
+ plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
+ axis(1,at=seq(1,n,par4))
+ grid(nx=0,ny=NULL,col='black')
+ abline(v=seq(1,n,par4),col='black',lty='dotted')
+ }
> dev.off()
null device 
          1 
> 
> #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,'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/rcomp/tmp/2c4961324066130.tab") 
> 
> try(system("convert tmp/1llzc1324066130.ps tmp/1llzc1324066130.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.724   0.104   0.814