Wessa.net

Send output to:


Data:
159 158 157 155 175 174 159 149 150 150 151 153 146 156 154 151 171 167 144 138 138 132 132 132 125 131 129 131 145 156 126 123 127 116 114 114 109 110 113 114 138 155 126 123 124 124 134 131 126 128 128 124 148 174 146 137 152 159 170 166 165 168 175 180 199 228 206 193 201 214 225 224 215 222 238 248 262 288 261 240 248 260 266 268 256 261 287 295 304 331 299 275 293 309 311 311 289 298 319 325 331 348 320 305 322 337 346 343 321 331 343 345 347 363 322 304 323 340 352 351

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')

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