Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3940 3990 4110 4145 4265 4280 4325 4420 4520 4535 4560 4605 4715 4675 4690 4785 4790 4720 4815 4740 4760 4785 4675 4595 4470 4535 4625 4575 4555 4590 4455 4530 4495 4465 4480 4560 4630 4580 4560 4645 4590 4630 4655 4665 4755 4775 4865 4955 4855 4870 4955 4910 5000 5025 5000 5065 5025 5110 5130 5160 5135 5100 5050 5180 5140 5115 5140 5120 5170 5200 5240 5290 5305 5325 5290 5355 5290 5305 5220 5205 5250 5235 5180 5235 5305 5350 5405 5240 5245 5280 5185 5175 5145 4995 4910 4900 4905 4810 4845 4820 4900 4900 5080 5060 5120 5140 5180 5210 5005 5135 5115 5230 5290 5155 5200 5135
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