Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7420 7512 7670 7946 8438 8524 8598 8540 8594 8456 8532 8404 8280 8042 7732 7520 7384 7434 7442 7316 7120 6986 6738 6436 6344 6282 6278 6230 6052 5796 5564 5210 5050 5042 5026 4868 4838 4902 4966 4844 4840 4912 5046 5122 5150 5228 5340 5598 5870 5896 5830 5902 5954 5760 5800 5974 5838 5660 5558 5496 5640 5610 5516 5352 5350 5324 5318 5244 5134 4976 4808 4632 4500 4266 3926 3788 3500 3160 3072 2980 2736 2648 2420 2224 2202 2244 2318 2504 2620 2774 2996 2966 3000 2984 2740 2604 2548 2584 2376 2222 2204 2304 2354 2382 2574 2762 2742 2844 2978 3042 3162 2948 2850 2962 2920 2514 2940 2830 2604 2390 2368 2418 2260 2122
Name of dataseries
Source
Description
Season
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