Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5370 5360 5525 5380 5275 5670 5525 5795 5315 5185 4995 4930 4620 4480 4320 4310 4650 4980 4955 5285 4605 4535 4750 4810 4800 4715 4455 4350 4295 4120 3825 3845 3885 3905 4075 4260 4105 3995 4040 3715 3540 3905 3825 3675 4040 3870 4120 4170 4325 4005 4390 4335 4360 4315 4280 3990 3935 4430 4640 4945 4800 4805 4560 4500 4605 4410 4350 4595 4340 4315 4710 4815 4750 4610 4650 4365 4330 4475 4115 4475 4035 3845 4565 4400 4465 4495 4480 4435 4360 4225 4110 4615 4505 4585 4700 4500 4625 4560 4850 5035 5005 5060 5145 5195 4265 4155 4525 4460 4225 4205 4345 4390 4535 4555 4490 4480 5195 4985 5140 5115 4940 4860
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