Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
16489042 16495231 16501683 16506782 16513615 16520661 16528400 16538542 16554596 16562317 16568499 16574989 16578604 16585167 16588947 16593973 16599333 16606135 16611675 16624215 16638805 16648268 16654119 16655799 16661142 16669012 16673931 16676905 16681513 16686550 16690580 16703472 16719078 16725328 16729674 16730348 16731280 16735690 16737631 16739764 16742830 16744696 16746558 16758167 16772610 16778726 16781377 16779575 16781367 16783870 16784986 16785783 16788992 16792122 16795289 16805879 16820076 16825762 16829252 16829289 16833919 16840299 16844980 16849473 16853737 16857811 16859859 16870851 16887455 16895020 16900158 16900726 16903174 16907715 16910467 16913766 16917152 16922460 16924725 16937725 16957605 16967706 16976281 16980049 16980049
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation