R version 3.3.1 (2016-06-21) -- "Bug in Your Hair" Copyright (C) 2016 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-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(36439.00 + ,36368.00 + ,36290.00 + ,36147.00 + ,37615.00 + ,37543.00 + ,36439.00 + ,35705.00 + ,35777.00 + ,35777.00 + ,35848.00 + ,35998.00 + ,35998.00 + ,35335.00 + ,35043.00 + ,35335.00 + ,36368.00 + ,36218.00 + ,34822.00 + ,33640.00 + ,33419.00 + ,32977.00 + ,33276.00 + ,33640.00 + ,33497.00 + ,33198.00 + ,32614.00 + ,33198.00 + ,33718.00 + ,33568.00 + ,31873.00 + ,31139.00 + ,30405.00 + ,29814.00 + ,29743.00 + ,30184.00 + ,29593.00 + ,29372.00 + ,29151.00 + ,30405.00 + ,30548.00 + ,29814.00 + ,27826.00 + ,26943.00 + ,25547.00 + ,24955.00 + ,25247.00 + ,25689.00 + ,25689.00 + ,25326.00 + ,25247.00 + ,26430.00 + ,27385.00 + ,26943.00 + ,25468.00 + ,24735.00 + ,23189.00 + ,22234.00 + ,22968.00 + ,23702.00 + ,23702.00 + ,22747.00 + ,22676.00 + ,23922.00 + ,24735.00 + ,24442.00 + ,22968.00 + ,22013.00 + ,19947.00 + ,19142.00 + ,19434.00 + ,20688.00 + ,20759.00 + ,18921.00 + ,19584.00 + ,21201.00 + ,21935.00 + ,21493.00 + ,19506.00 + ,18109.00 + ,16492.00 + ,15238.00 + ,15751.00 + ,16855.00 + ,16563.00 + ,14946.00 + ,15459.00 + ,17076.00 + ,17960.00 + ,17447.00 + ,15459.00 + ,14576.00 + ,13251.00 + ,11854.00 + ,12075.00 + ,13179.00 + ,13322.00 + ,11997.00 + ,12218.00 + ,14063.00 + ,14504.00 + ,13764.00 + ,11042.00 + ,9646.00 + ,7801.00 + ,5963.00 + ,6554.00 + ,7359.00 + ,7217.00 + ,5813.00 + ,6625.00 + ,8613.00 + ,9496.00 + ,9055.00 + ,7288.00 + ,5892.00 + ,4417.00 + ,2721.00 + ,3021.00 + ,3534.00) > par4 = '12' > par3 = 'Omzet verkoop van keukenrobots' > par2 = 'niet gekend' > par1 = 'Keukenrobot -Omzet EUR' > ylimmax = '' > ylimmin = '' > ylab = 'Waarde in EUR' > xlab = 'Periode' > main = 'Reeks A' > par4 <- '12' > par3 <- 'Omzet verkoop van keukenrobots' > par2 <- 'niet gekend' > par1 <- 'Keukenrobot -Omzet EUR' > #'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) Min. 1st Qu. Median Mean 3rd Qu. Max. 2721 15160 23700 22860 32060 37620 > n <- length(x) > postscript(file="/var/wessaorg/rcomp/tmp/15zm41469358325.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/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/26wo31469358325.tab") > > try(system("convert tmp/15zm41469358325.ps tmp/15zm41469358325.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.495 0.039 0.538