par1 = Aangepaste geharmoniseerde werkloosheidsgraad in % t.o.v. Beroepsbevolking (mannen) in Nederland ; par2 = CBS, Statline, http://statline.cbs.nl/StatWeb/publication/?DM=SLNL&PA=71099ned&D1=0&D2=104-115,117-128,130-141,143-168&HDR=T&STB=G1&VW=T ; par3 = %-aantal mannelijke werklozen t.o.v. de beroepsbevolking in NL ; |
par1 = Aangepaste geharmoniseerde werkloosheidsgraad in % t.o.v. Beroepsbevolking (mannen) in Nederland ; par2 = CBS, Statline, http://statline.cbs.nl/StatWeb/publication/?DM=SLNL&PA=71099ned&D1=0&D2=104-115,117-128,130-141,143-168&HDR=T&STB=G1&VW=T ; par3 = %-aantal mannelijke werklozen t.o.v. de beroepsbevolking in NL ; |
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')
|