Wessa.net

Send output to:


Data:
247832 246909 245973 244036 263198 262184 247832 238290 239213 239213 240240 242086 244959 244959 243113 238290 263198 266994 261261 247832 253578 244959 248846 250705 252642 247832 248846 242086 263198 269867 264134 253578 265057 252642 264134 263198 266071 255515 266994 266071 283296 279409 264134 256438 266994 252642 263198 265057 268944 260338 265057 267930 278486 269867 258388 245973 257465 225875 241163 249769 258388 245973 245973 245973 252642 243113 230607 220142 227734 198094 216255 226811 228748 218192 219115 216255 225875 219115 205790 196157 212446 177073 200044 210509 210509 198094 186615 185692 196157 186615 168467 155961 169390 137813 166517 181792 186615 176059 162721 172263 176059 173186 144469 131144 140673 111969 141609 152165 160771 146419 132990 140673 144469 136877 108173 95667 107146 75569 110019 131144

Name of dataseries


Source


Description


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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab')

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