par1 = 12greygrey0.010.10,010,010,010,10,10,10,010,010,010,010,112DefaultDefaultDefault486060121212additive120.01Aantal verkochte exemplaren 'Financial Times'Aantal verkochte exemplaren 'Financial Times'Aantal verkochte exemplaren 'Financial Times' (jaarbasis)Aantal verkochte exemplaren 'Financial Times' (jaarbasis)Aantal verkochte exemplaren 'Financial Times' (jaarbasis)greyAantal verkochte exemplaren Financial Times ; par2 = nono0.990.90,990,990,990,990,990,990,990,990,990,990,99grey11111112Triple0.99Niet gekendNiet gekendNiet gekendNiet gekendNiet gekendnoNiet gekend ; par3 = 0.010.10,010,010,010,10,10,10,010,10,10,10,1FALSE000001additive0.01Aantal verkochte exemplaren Financial Times op jaarbasis (maandelijks)Aantal verkochte exemplaren Financial Times op jaarbasis (maandelijks)Aantal verkochte exemplaren Financial TimesAantal verkochte exemplaren Financial TimesAantal verkochte exemplaren Financial TimesAantal verkochte exemplaren Financial Times ; par4 = Unknown0000001212121212121212 ; par5 = 121212121212 ; par6 = White NoiseWhite NoiseWhite NoiseWhite NoiseWhite NoiseWhite Noise ; par7 = 0.950.950.950.950.950.95 ; par8 = 480 ; |
par4 <- '12' par3 <- '' par2 <- 'no' par1 <- 'grey' 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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('',RC.texteval('summary(x)'),' ',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab')
|