x <- c(547.612,563.28,581.302,572.273,518.654,520.579,530.577,540.324,547.97,555.654,551.174,548.604,563.668) par4 = '12' par3 = 'monthly time series of unemployment in Belgium' par2 = 'Belgostat' par1 = 'Unemployment time series' ylimmax = '' ylimmin = '' ylab = 'value' xlab = 'index or time' main = '' postscript(file="/var/wessaorg/rcomp/tmp/1su8t1322239931.ps",horizontal=F,onefile=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/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/2fpjf1322239931.tab") try(system("convert tmp/1su8t1322239931.ps tmp/1su8t1322239931.png",intern=TRUE))