Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
196088 192639 189187 182286 252115 248662 196088 161176 164624 164624 168076 175352 154275 133164 115877 115877 182286 189187 136613 77137 108601 108601 133164 147340 143888 108601 126263 119329 178804 164624 108601 66754 105149 115877 126263 140065 112050 87865 98252 101700 192639 192639 140065 133164 154275 143888 171903 206816 213750 164624 150789 136613 231378 238313 220651 238313 234827 206816 238313 273225 287402 245214 217199 238313 329249 357263 350363 364161 360712 325800 385275 399451 420187 357263 332701 360712 427463 486938 472762 472762 479696 455474 518436 518436 507708 448199 458927 465861 511501 570976 528785 549899 532237 521884 602474 584812 560249 525336 560249 577911 598988 626999 598988 616275 595195 591746 679233 686508 658497 609374 651221 668850 689961 721424 689961 714523 703796 665398 745984 745984
Name of dataseries
Source
Description
Season
12
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation