Wessa.net

Send output to:


Data:
293 301 362 330 328 405 232 159 336 361 329 339 290 328 375 294 340 364 248 145 380 305 291 319 334 318 362 296 300 342 215 185 343 333 316 252 320 324 343 295 301 367 196 182 342 361 334 330 345 323 366 323 316 358 235 169 430 409 407 341 326 374 364 349 300 385 304 196 443 414 325 388 356 386 444 387 327 448 225 182 460 411 342 361 377 331 428 340 352 461 221 198 422 329 320 375 364 351 380 319 322 386 221 187 344 342 365 313 356 337 389 326 343 357 220 218 391 425 332 298

Name of dataseries


Source


Description


Season


Chart options


Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum

R Code
bitmap(file='test1.png') plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab) 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