Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
49.164 50.112 52.329 52.872 53.008 53.804 57.150 57.863 58.334 60.621 62.084 62.395 61.064 65.989 67.170 68.813 69.255 70.643 73.657 72.723 72.966 75.159 74.414 75.573 70.977 72.291 72.384 74.385 70.977 68.889 71.950 70.463 70.615 72.567 75.962 75.851 75.005 78.635 82.937 80.337 82.336 81.858 83.732 84.158 84.806 86.610 91.300 92.038 99.274 99.292 100.169 103.661 100.427 106.692 108.459 109.815 108.914 111.181 114.572 115.019 149.365 154.780 163.305 168.139 170.969 178.788 184.302 182.706 189.415 192.260 200.070 200.555 203.220 207.325 209.362 205.709 205.752 204.527 208.881 212.113 216.893 219.171 226.970 222.226
Name of dataseries
Source
Description
Season
4
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