x <- c(127.87,127.94,122.44,120.25,118.13,114.93,112.57,110.81,109.02,106.39,103.75,102.60,101.63,100.00,97.98,96.56,94.32,91.79,89.61,86.83,83.94,81.41,80.47,79.24,78.23,74.60,70.14,65.15,59.92,55.67,52.20,49.97,47.83,44.66,40.91,36.28,32.20,30.10,28.55,27.36,26.33,25.38,24.69,24.01,23.05,22.15,21.26,20.81,20.52,20.32,20.26,20.02,19.76,19.15,18.63,18.73,18.48,18.53,18.37,16.80,16.94,17.21,15.26,14.99,15.80,-,-,-,-,-,4.71,4.65,4.50) par3 = 'Indexcijfers van de consumptieprijzen - historisch overzicht (jaargemiddelden)' par2 = 'http://www.nbb.be/belgostat/PresentationLinker?TableId=596000015&Lang=N' par1 = 'indexcijfer op basis van 1996' ylab = 'value' xlab = 'index' main = '' #'GNU S' R Code compiled by R2WASP v. 1.0.44 () #Author: Prof. Dr. P. Wessa #To cite this work: AUTHOR(S), (YEAR), 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: Office for Research, Development, and Education #Technical description: Write here your technical program description (don't use hard returns!) postscript(file="/var/www/html/rcomp/tmp/18f1z1265744250.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab) dev.off() #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab load(file="/var/www/html/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/html/rcomp/tmp/229cs1265744250.tab") try(system("convert tmp/18f1z1265744250.ps tmp/18f1z1265744250.png",intern=TRUE))