Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
13430 13020 11710 9265 7280 5040 3860 6160 13610 15455 14530 13815 12860 11500 10660 9340 8050 6540 5060 6350 14130 16380 16160 15850 15930 15320 13420 12255 8785 6380 4760 5730 10810 12845 12865 13515 13880 12960 12090 9510 8130 6625 4920 4650 10085 13960 14495 14340 13875 13135 13415 9280 7075 5660 4270 5085 11945 14335 14105 13755 12920 11650 10720 8600 7795 6550 4800 5900 14095 15170 14875 15230 13685 12780 11510 9915 8740 7870 6650 5285 13195 13390 13490 13445 13070 12480 11550 10725 9130 7885 6415 5540 9350 12645 11985 10055 10295 10280 9420 9575 8090 5855 4445 3555 12870 14750 13615 13705 13940 11900 9000 7340 6425 5535 4050 3485 8090 11380 11355 10530 9285
Name of dataseries
Source
Description
Season
Unknown
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