Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5171 5228 5325 5197 5133 4964 4854 4787 4859 4876 4855 4906 4963 5128 5201 5190 5038 4877 4705 4632 4669 4740 4731 4852 4811 4932 4964 4975 4868 5003 4893 4843 4875 5063 5207 5335 5301 5374 5721 5769 5568 5534 5570 5659 5776 5832 5826 5800 5883 6065 6098 6123 6213 6015 6103 6232 6284 6285 6075 5894 6016 6068 6042 5983 5915 5853 5867 5977 6163 5986 5881 5809 5770 5950 5997 5924 5824 5772 5817 5858 5870 5862 5964 5940 6021 6097 6178 6287 6283 6257 6186 6176 6265 6239 6327 6155 6299 6415 6488 6282 6198 6445 6535 6555 6603 6770 6792 6484 6769 6916 6784 6826 6697 6361 6393 6484 6590 6653
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation