par1 = België, Werkloosheid (niet werkende werkzoekenden), brutogegevens in duizenden, einde periode ; par2 = http://www.nbb.be/belgostat/PresentationLinker?TableId=66000076&Lang=N ; par3 = België, Werkloosheid (niet werkende werkzoekenden), brutogegevens in duizenden, einde periode ; |
par1 = België, Werkloosheid (niet werkende werkzoekenden), brutogegevens in duizenden, einde periode ; par2 = http://www.nbb.be/belgostat/PresentationLinker?TableId=66000076&Lang=N ; par3 = België, Werkloosheid (niet werkende werkzoekenden), brutogegevens in duizenden, einde periode ; |
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')
|