Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
631.923 654.294 671.833 586.840 600.969 625.568 558.110 630.577 628.654 603.184 656.255 600.730 670.326 678.423 641.502 625.311 628.177 589.767 582.471 636.248 599.885 621.694 637.406 595.994 696.308 674.201 648.861 649.605 672.392 598.396 613.177 638.104 615.632 634.465 638.686 604.243 706.669 677.185 644.328 664.825 605.707 600.136 612.166 599.659 634.210 618.234 613.576 627.200 668.973 651.479 619.661 644.260 579.936 601.752 595.376 588.902 634.341 594.305 606.200 610.926 633.685 639.696 659.451 593.248 606.677 599.434 569.578 629.873 613.438 604.172 658.328 612.633 707.372 739.770 777.535 685.030 730.234 714.154 630.872 719.492 677.023 679.272 718.317 645.672
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')
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