Wessa.net

Send output to:


Data:
5276 4874 5374 5154 5384 5188 5368 5352 5220 5394 5218 5330 5392 4904 5394 5266 5352 5200 5354 5382 5270 5438 5262 5206 5498 5148 5376 5318 5552 5312 5508 5462 5396 5522 5388 5516 5418 5054 5638 5426 5662 5414 5548 5458 5372 5562 5342 5598 5664 5138 5588 5318 5480 5174 5368 5192 4996 5220 5048 5178 5258 4698 5248 5098 5168 4968 5116 5090 4924 5186 5038 5156 5114 4856 5192 4972 5102 4902 4984 5010 4736 4974 4814 4924 4922 4362 4696 4662 4846 4574 4616 4678 4528 4620 4522 4548 4678 4198 4608 4444 4544 4264 4448 4518 4334 4676 4432 4550 4650 4276 4678 4506 4594 4392 4556 4536 4420 4612 4396 4526 4564 4286 4556 4376 4444 4300

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