Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2404 2324.5 2266 2415 2462 2737 2766 2873.5 2811.5 2875 2660.5 2534 2467.5 2591 2611 2614.5 2638 2635 2366.5 2429.5 2595 2795.5 2952.5 2860 3188.5 3313.5 3363 3351.5 3314.5 3425.5 3114 3410.5 3576 3692 3882.5 3857 4009 4059.5 3993 4010 4140.5 4105.5 3589 3730.5 3852.5 4123 4288.5 4068 4438.5 4710.5 4794.5 4935 4854 4829.5 4569.5 4478.5 4083.5 4287 4409.5 4078.5 4572.5 4832 4992.5 5001.5 5051 4879.5 4418.5 4372 4492 4836.5 4952 4839.5 5120 5174 5113.5 5102 4964.5 4938 4258 4273 4192 4725 4991.5 4996.5 5468.5 5852.5 5985.5 6044.5 6126 6261.5 5572 5539 5394 5513 5734 5674.5 5177 5352 5553 5519.5 5792 5966 5408 5365 5476.5 5854 5832 5371.5 5355.5 5112.5 4775.5 4767.5 4800.5 4825.5 4262.5 4287 4379 5021.5 5272 4927.5 5129 5526 5833 5833.5 5847.5 5700.5
Name of dataseries
Source
Description
Season
12
12
6
4
No 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')
Compute
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
Click here to blog (archive) this computation