Wessa.net

Send output to:


Data:
7300 6800 7260 7460 7480 7700 7360 7520 7680 7660 8040 7560 7620 7260 7400 7900 7920 8120 7500 7840 7920 7960 8040 7760 7460 7500 7540 6980 7420 7560 6780 7420 7660 7860 7280 7620 7540 7320 7500 7180 7440 7620 7280 7240 7660 7780 7600 7480 7420 7260 7640 7540 7860 8240 7460 7560 8020 8280 8180 8100 7840 7720 7860 7700 7880 7960 7860 8020 8240 8260 8060 7980 7600 7560 7260 7620 7900 8020 7580 7460 8060 8060 7800 7620 7520 7540 7760 7620 7820 7880 7720 7860 8180 8160 8060 7980 7880 7680 7660 7540 7800 7920 7680 7880 8060 8040 7700 7880 7820 7420 7820 7600 7620 7880 7620 7820 7720

Name of dataseries


Source


Description


Season


Chart options


Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum

R Code
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('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab')

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center