| par4 <- '12'par3 <- 'Aantal ingeschreven nieuwe wagens jan-05 tot dec-10'
 par2 <- 'Blackboard TM'
 par1 <- 'Inschrijvingen nieuwe wagens'
 if (par4 != 'No season') {
 par4 <- as.numeric(par4)
 if (par4 < 4) par4 <- 12
 }
 summary(x)
 n <- length(x)
 bitmap(file='test1.png')
 if (par4=='No season') {
 plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
 axis(1,at=seq(1,n,10))
 }
 if (par4!='No season') {
 plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
 axis(1,at=seq(1,n,par4))
 grid(nx=0,ny=NULL,col='black')
 abline(v=seq(1,n,par4),col='black',lty='dotted')
 }
 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')
 
 |