Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
133.105 139.066 137.645 143.836 137.175 140.47 138.662 146.738 142.133 144.151 141.176 150.444 139.494 141.234 140.273 153.8 147.401 153.157 150.366 160.347 150.227 155.468 152.358 163.189 155.438 159.07 155.232 165.366 157.161 165.623 157.775 173.696 161.44 166.145 164.361 177.168 164.15 164.869 163.064 174.409 164.062 166.523 164.027 173.251 164.983 166.886 163.6 172.94 166.603 167.785 166.85 177.504 167.63 168.123 167.705 181.996 172.861 175.444 176.473 193.009 178.455 187.177 183.767 195.74 188.674 195.03 186.305 201.588 192.843 197.391 194.408 210.311 197.148 202.714 193.651 198.97 185.515 189.982 186.276 197.11 190.522 192.175 189.153 201.316 188.959 192.146 187.763 200.365
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