x <- c(221.102
,220.892
,225.537
,219.334
,216.126
,224.573
,213.991
,221.865
,215.382
,213.962
,217.009
,318.110
,219.662
,212.650
,209.307
,210.541
,210.609
,208.910
,207.541
,207.699
,205.005
,205.747
,203.644
,229.937
,214.446
,210.194
,206.535
,216.524
,198.243
,208.274
,207.493
,215.525
,207.562
,213.355
,209.048
,220.497
,214.563
,211.571
,216.385
,211.496
,209.683
,206.304
,213.925
,204.829
,205.729
,200.296
,207.960
,207.729
,208.327
,207.794
,213.700
,213.136
,210.354
,202.205
,220.425
,210.038
,205.201
,197.441
,200.021
,203.165
,201.699
,201.003
,232.308
,211.412
,209.661
,213.587
,193.611
,192.543
,196.040
,191.407
,189.726
,191.272
,187.924
,198.213
,199.352
,199.289
,195.475
,198.045
,197.615
,189.015
,189.668
,189.120
,194.168
,192.304
,185.913
,197.599
,186.085
,190.566
,187.054
,193.222
,189.856
,190.608
,190.588
,186.773
,183.510
,180.106
,180.150
,178.412
,182.353
,203.805
,186.054
,184.290
,187.483
,187.111
,189.561
,184.439
,182.985
,183.828
,184.036
,183.214
,183.464
,173.718
,180.210
,171.252
,172.705
,174.006
,172.043
,169.445
,169.449
,177.073
,170.799
,171.648
,172.220
,165.795
,167.466
,165.528
,162.851
,165.864
,162.094
,162.385
,164.293
,165.983
,159.680
,161.739
,159.302
,167.795
,164.242
,159.743
,160.887
,163.844
,161.172
,159.330
,155.570
,156.749
,155.012
,163.419
,153.630
,154.535
,151.543
,152.955
,150.166
,151.416
,150.332
,152.196
,153.422
,147.435)
par4 = '12'
par3 = '2010 2011 2011'
par2 = 'Interne statistiek Sanoma Media'
par1 = 'Humo verkoop'
ylimmax = ''
ylimmin = ''
ylab = 'value'
xlab = 'index or time'
main = 'Univariate Data'
par4 <- '12'
par3 <- '2010 2011 2011'
par2 <- 'Interne statistiek Sanoma Media'
par1 <- 'Humo verkoop'
#'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
#Author: root
#To cite this work: Wessa P., (2012), Plot of univariate data series (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_univariatedataseries.wasp/
#Source of accompanying publication: 
#
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
postscript(file="/var/wessaorg/rcomp/tmp/1ruz91380098256.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()

#Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
load(file="/var/wessaorg/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/wessaorg/rcomp/tmp/25gzj1380098256.tab") 

try(system("convert tmp/1ruz91380098256.ps tmp/1ruz91380098256.png",intern=TRUE))