Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3425 3440 3500 3545 3580 3620 3645 3655 3670 3675 3665 3665 3740 3800 3820 3860 3845 3865 3900 4050 4165 4100 4075 4110 4170 4235 4320 4370 4460 4575 4510 4510 4525 4570 4670 4735 4730 4680 4725 4750 4750 4740 4780 4835 4865 4885 4915 4925 4970 5015 5030 5030 5010 4985 4955 5000 5005 4990 5015 5030 5125 5055 5055 5000 4980 4950 4985 4930 4945 4930 4920 4920 4965 4970 4955 5050 5065 5065 5065 5085 5065 4920 4880 4955 5005 5010 5025 5005 4975 4970 4980 4900 4885 4895 4845 4875 4825 4765 4730 4630 4540 4555 4520 4520 4505 4485 4455 4410 4345 4350 4315 4245 4215 4175 4110 4085
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