Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3716 6151 6580 5361 6050 6616 5523 7205 7823 6328 6846 6160 4398 5639 7758 6417 6687 7972 6698 7651 5058 6859 7146 7432 6262 6236 10928 6485 5409 6690 4860 6290 7770 8171 6116 6781 6958 8289 8534 6046 6621 6214 6231 6468 7149 7300 8058 4713 6426 8148 7337 5540 5670 5797 4461 5844 5894 6734 6144 5589 5614 5811 4249 4319 4687 6119 4671 4608 5318 4941 5190 5171 3775 4366 4893 5081 3557 4802 4895 3885 5308 5617 5959 4378 5454 5312 5658 3014 3575 2766 3999 7309 5524 4724 6242 5391 4142 5290 5037 4331 5228 5416 5610 5485 5329 6413 6623 5041 5021 6663 7466 7169 8786 9026 8965 9835 9695 9639 8996 8985 7583 9500 9478 9058 10110 10271
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