Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2340 2377.5 2500 2395 2375 2395 2452.5 2462.5 2840 2750 2795 3035 2827.5 2850 3265 3220 3075 3325 3235 3320 3277.5 3050 3432.5 3575 3287.5 3297.5 3255 3135 3177.5 3172.5 3365 3775 3737.5 4060 4197.5 4195 4112.5 3977.5 3982.5 3985 4155 4295 4072.5 4017.5 3965 3847.5 3799.5 4215 4115 4210 4132.5 3955 4057.5 4152.5 4062.5 4092.5 4157.5 4325 4210 5107.5 4862.5 4920 5080 4615 4615 5057.5 4850 4720 5040 4815 5170 6420 5847.5 6177.5 6960 7170 6485 6785 7300 7105 7030 7222.5 7522.5 9500 8697.5 8662.5 8685 8642.5 8492.5 7702.5 7965 8097.5 7947.5 9227.5 7680 7820 7635 7347.5 7177.5 6982.5 7075 7230 7170 7022.5 7087.5 7440 7592.5 8297.5 7852.5 8097.5 8022.5 8062.5 7982.5 9540 8172.5 8007.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