Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6879.3 6851.7 6846.6 6875.4 6912.3 6950.7 7000.8 7029.3 7088.1 7143.3 7188 7216.8 7261.2 7328.1 7347.6 7377.6 7401.9 7433.4 7460.1 7468.5 7466.7 7472.7 7475.4 7489.5 7492.8 7474.5 7485.9 7476.9 7467 7451.4 7436.7 7437.9 7426.2 7430.4 7426.2 7429.8 7437.9 7421.7 7403.7 7396.5 7369.8 7341 7330.2 7329 7322.4 7322.4 7322.1 7334.4 7334.1 7353.9 7355.7 7362.9 7375.5 7374.6 7393.5 7412.1 7425.6 7456.8 7479.6 7497.6 7470.3 7500.3 7518.3 7531.5 7531.2 7548.6 7551.9 7539.9 7537.5 7555.2 7574.7 7581 7607.1 7596.9 7593.3 7598.1 7589.7 7576.2 7566.6 7574.4 7552.8 7551.9 7560.6 7542 7539 7584.3 7566 7537.8 7521.6 7510.8 7484.7 7458 7430.4 7394.4 7332.6 7312.5 7258.5 7220.1 7182.9 7148.1 7140.6 7119 7107.9 7104.6 7089.6 7069.5 7034.7 7020.9 6993 6979.8 6980.1 6975.3 6971.1 6951.6 6948 6921.9 6903.6
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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.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