Wessa.net

Send output to:


Data:
4550 4820 4800 4760 4610 4480 3440 4420 4190 4460 4190 4150 4130 3740 4100 4130 4250 3730 3720 3960 4340 4890 4840 4570 4440 4860 4760 4850 4660 4670 4450 5000 4900 5170 4810 4130 4130 4320 4640 4390 4470 3490 4110 4550 5080 5390 5420 4340 4980 5290 5320 5020 5910 4600 4100 5020 4620 5130 5080 4750 5000 4990 5440 5560 5930 5390 5990 6340 5330 6730 5590 5510 5220 5750 6010 5590 5220 5940 5530 5630 6070 6180 6160 5970 6210 5860 6750 6410 6530 6630 6160 6590 6440 7350 6710 6690 6870 6960 7300 6940 6690 6790 6700 7180 7100 7750 7230 7730 7900 7440 7100 7200 7200 7070 6980 7000 7230 7460 7070 7590 7610 7150 6650 7100 7330 7230

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