Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3652 3830 4176 4388 4384 4258 4284 4502 5152 3960 4144 4992 3910 4548 5306 5426 6716 6688 5766 6552 6076 5216 4974 5042 4048 3894 4966 5336 5670 6776 7236 7044 6468 7550 6854 6966 5570 5624 6200 6422 5326 5974 6552 7264 7010 7362 7328 7658 6960 6836 7238 6522 5878 5798 5914 6024 7176 7392 6256 6372 5716 5990 7218 7074 6788 6896 4874 4970 4916 5374 5382 5298 6588 6364 6218 5596 5090 5502 4978 4406 5714 5732 6210 6408 6018 5552 6266 5632 5730 4532 5358 5742 7352 6056 6970 7008 6514 5106 4676 4790 3956 3762 3302 3658 3066 4252 5964 4856 4766 3858 3266 2354 1924 2814 3108 3658 3910 4612 3806 3598 3548 3636 4594 5452 5014 4910
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