Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5750 5400 6150 6350 6450 6400 5900 6450 6600 7100 6850 6050 6750 6450 7000 6650 6650 6550 6900 6450 6150 6750 6300 5650 6250 5950 6450 6150 5800 5700 5950 6700 6150 7350 6850 5600 6400 5850 6350 6350 6000 6150 6400 6300 6600 6850 6700 6200 6750 6350 6900 6000 6050 6000 6600 6350 6300 6200 5600 5550 6450 6550 7050 6450 6850 6150 6800 7450 7150 7450 6600 6300 7400 6600 7250 7400 7150 6850 7350 7550 7550 8300 7600 6100 7800 7050 7450 7000 6900 7100 7600 7350 6850 8400 7550 7350 7250 6650 7400 6900 7000 7250 7950 7600 7750 8150 7150 7000 6400 5800 6700 6350 6200 6150 7000
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