par1 = Adviesprijzen motorbrandstoffen ; par2 = http://statline.cbs.nl/StatWeb/publication/?VW=T&DM=SLNL&PA=7521&D1=3-9&D2=98,103,108,113,118,123,(l-5)-l&HD=090926-2050&HDR=T&STB=G1 ; par3 = De adviesprijzen van motorbrandstoffen afkomstig van grote oliemaatschappijen ; |
par1 = Adviesprijzen motorbrandstoffen ; par2 = http://statline.cbs.nl/StatWeb/publication/?VW=T&DM=SLNL&PA=7521&D1=3-9&D2=98,103,108,113,118,123,(l-5)-l&HD=090926-2050&HDR=T&STB=G1 ; par3 = De adviesprijzen van motorbrandstoffen afkomstig van grote oliemaatschappijen ; |
bitmap(file='test1.png') plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab) dev.off() load(file='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='mytable.tab')
|