Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
505·7 55·7 735·7 575·9 545.8 905·8 765.8 945.7 15·7 645.7 155·9 416·0 825·8 725·9 925.9 556·0 116·1 876.3 336.2 186·1 286·1 26·0 915·8 405·7 965.7 395.6 425·8 545·6 65·6 445·6 895.5 175·4 715·4 865·5 575.4 145.4 315.3 635·4 05·2 515·2 515.1 955.0 955.0 634.9 205.0 275.0 425.0 84.9 534·7 04·8 704·7 684.7 884.6 994.6 294·7 524.7 914.5 564·4 984.5 934·4 514·6 474.5 784·4 504.5 824·4 414·6 964·7 64.6 244.7 344·7 34·7 685·0 425·0 484.8 785·1 704.9 245.4 285.6 215·8 706·1 856·2 456.6 606.8 527.3 657·8 948·2 468.6 238.9 289.4 969·5 589.5 189·7 639.8 9710.1 969·9 939.9 859.7 679·7 879.7 329·8 349·6 39·5 849·5 449.6 749·6 249.7 649.8 619.4 939.0 778·9
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