Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7470 7634 7739 7740 7646 7662 7841 7938 7914 7839 7857 8046 8163 8137 8051 8108 8306 8402 8361 8294 8323 8513 8599 8563 8500 8494 8699 8791 8747 8683 8660 8835 8909 8841 8811 8733 8885 8933 8854 8851 8748 8827 8850 8761 8796 8617 8758 8806 8710 8723 8681 8819 8834 8742 8769 8766 8902 8980 9031 8920 8984 9150 9231 9230 9150 9194 9307 9336 9310 9287 9236 9244 9222 9186 9222 9096 9216 9238 9208 9190 9184 9278 9305 9268 9259 9210 9271 9278 9225 9246 9129 9200 9187 9102 9155 9042
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