Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5204472 5185089 5165433 5124756 5527158 5505864 5204472 5004090 5023473 5023473 5045040 5083806 5144139 5144139 5105373 5004090 5527158 5606874 5486481 5204472 5325138 5144139 5225766 5264805 5305482 5204472 5225766 5083806 5527158 5667207 5546814 5325138 5566197 5305482 5546814 5527158 5587491 5365815 5606874 5587491 5949216 5867589 5546814 5385198 5606874 5305482 5527158 5566197 5647824 5467098 5566197 5626530 5848206 5667207 5426148 5165433 5406765 4743375 5064423 5245149 5426148 5165433 5165433 5165433 5305482 5105373 4842747 4622982 4782414 4159974 4541355 4763031 4803708 4582032 4601415 4541355 4743375 4601415 4321590 4119297 4461366 3718533 4200924 4420689 4420689 4159974 3918915 3899532 4119297 3918915 3537807 3275181 3557190 2894073 3496857 3817632 3918915 3697239 3417141 3617523 3697239 3636906 3033849 2754024 2954133 2351349 2973789 3195465 3376191 3074799 2792790 2954133 3033849 2874417 2271633 2009007 2250066 1586949 2310399 2754024
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation