Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3780 3795 3840 3900 3940 3990 4050 4090 4145 4190 4175 4230 4220 4245 4295 4290 4325 4335 4360 4360 4320 4310 4345 4315 4315 4335 4365 4410 4435 4440 4390 4445 4470 4430 4450 4480 4565 4515 4490 4535 4545 4555 4575 4585 4600 4690 4720 4780 4775 4830 4865 4945 5005 5065 5105 5080 5045 5115 5095 5075 5080 5115 5115 5115 5065 5045 5080 5115 5080 5100 5085 5120 5195 5135 5200 5150 5105 5105 5030 5060 5075 5030 5090 5070 5160 5110 5145 5075 5125 5055 5050 5040 5020 5025 4960 4965 4875 4805 4735 4775 4815 4870 4860 4875 4900 4855 4880 4850 4880 4900 4910 4935 4965 4945 4965 4950
Name of dataseries
Source
Description
Season
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