Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2005-12 377.74 2005-11 377.51 2005-10 377.5 2005-09 375.76 2005-08 375.69 2005-07 375.75 2005-06 375.75 2005-05 375.75 2005-04 375.58 2005-03 374.51 2005-02 372.55 2005-01 370.2 2004-12 370.2 2004-11 370.29 2004-10 370.29 2004-09 370.21 2004-08 370.22 2004-07 370.58 2004-06 370.58 2004-05 370.46 2004-04 370.46 2004-03 370.45 2004-02 369.05 2004-01 365.22 2003-12 363.67 2003-11 364.54 2003-10 364.63 2003-09 364.59 2003-08 365.5 2003-07 365.5 2003-06 365.51 2003-05 365.51 2003-04 364.14 2003-03 363.61 2003-02 363.19 2003-01 361.58 2002-12 361 2002-11 361 2002-10 361.01 2002-09 361 2002-08 360.97 2002-07 360.79 2002-06 360.63 2002-05 360.28 2002-04 357.04 2002-03 356.36 2002-02 355.52 2002-01 350.89 2001-12 349.91 2001-11 349.91 2001-10 349.68 2001-09 349.66 2001-08 349.61 2001-07 349.28 2001-06 349.26 2001-05 349.26 2001-04 349.43 2001-03 348.5 2001-02 336.93 2001-01 326.91 2000-12 326.9 2000-11 326.9 2000-10 326.74 2000-09 326.39 2000-08 326.35 2000-07 326.35 2000-06 326.35 2000-05 326.28 2000-04 326.23 2000-03 325.59 2000-02 321.59 2000-01 317.05 1999-12 317 1999-11 317.04 1999-10 317.08 1999-09 317 1999-08 317.07 1999-07 317.07 1999-06 317.01 1999-05 316.98 1999-04 316.26 1999-03 315.27 1999-02 314.93 1999-01 314.65 1998-12 314.65 1998-11 314.63 1998-10 314.57 1998-09 313.99 1998-08 315.77 1998-07 315.77 1998-06 315.77 1998-05 315.73 1998-04 315.43 1998-03 315.07 1998-02 312.97 1998-01 310.95
Name of dataseries
Source
Description
Season
No season
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation