Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2580 3040 3580 3380 3620 3800 3600 3400 3460 3820 3360 3280 2880 3380 3760 3580 3620 3980 3960 3680 3620 4060 3560 3720 3160 3520 3960 3820 4000 4280 4280 3840 3820 4300 3780 3900 3180 3700 4140 4080 4000 4300 4240 3820 3760 4200 3740 3900 3180 3620 4020 3960 3960 4400 4240 4000 4060 4460 4040 4080 3360 3960 4540 4040 4800 4700 4380 4060 4300 4440 4140 4340 3360 4020 4680 4060 4940 4540 4340 4060 4080 4500 4280 4360 3400 4120 4460 4240 4880 4680 4600 4240 4340 4620 4280 4580 3500 4260 4720 4320 5060 4860 4640 4160 4400 4860 4180 4640 3560 4340 4820 4660 5520 5300 5180 4360 4440 5160 4440 4820 3840 4480
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