Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
272545 179444 222373 218443 167843 70849 33186 216660 213274 307153 237633 166215 364402 244103 384448 325587 323652 176082 266736 278265 180393 189897 234247 238002 267268 270787 155915 342564 282172 216584 318563 98672 391593 273950 227636 115658 349863 324178 178083 195153 177694 153778 455168 78800 208051 348077 175523 224591 24188 372238 65029 101097 279012 317644 340471 358958 252529 377482 304468 270190 264889 228595 216027 198798 238146 234891 175816 239314 73566 242622 187167 209049 360592 342846 207650 206500 182357 153613 456979 145943 280366 80953 150216 167878 369718 322454 179797 264350 262793 189142 275997 328875 189252 222504 287386 389104 397681 287748 294320 186856 43287 185468 235352 268077 305195 143356 154287 307000 298039 23623 195817 61857 163766 21054 252805 31961 317367 240153 175083 152043 38214 216299 357602 198104 410803 316105 397297 187992 102424 286327 409878 143860 391854 157429 258751 282399 217665 367246 239072 173260 323545 168994 253330 301703 246435 384136 46660 116678 206501
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