x <- c(22,24,22,24,24,29,29,25,16,18,13,22,15,20,19,18,13,17,17,13,14,13,17,17,15,9,10,9,14,18,18,12,16,12,19,13,12,13,11,10,16,12,6,8,6,8,8,9,13,8,11,8,10,15,12,13,12,15,13,13,16,14,12,15,14,19,16,16,11,13,12,11,6,9,6,15,17,13,12,13,10,14,13,10,11,12,7,11,9,13,12,5,13,11,8,8,8,8,0,3,0,-1,-1,-4,1,-1,0,-1,6,0,-3,-3,4,1,0,-4,-2,3,2,5,6) par3 = '' par2 = 'Belgostat' par1 = 'Spaarvermogen vd gezinnen' ylab = 'value' xlab = 'monthly' main = 'Spaarvermogen vd gezinnen' postscript(file="/var/www/html/rcomp/tmp/10zme1255090037.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/2bw5f1255090037.tab") system("convert tmp/10zme1255090037.ps tmp/10zme1255090037.png")