Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6195800.00 6172725.00 6149325.00 6100900.00 6579950.00 6554600.00 6195800.00 5957250.00 5980325.00 5980325.00 6006000.00 6052150.00 6123975.00 6123975.00 6077825.00 5957250.00 6579950.00 6674850.00 6531525.00 6195800.00 6339450.00 6123975.00 6221150.00 6267625.00 6316050.00 6195800.00 6221150.00 6052150.00 6579950.00 6746675.00 6603350.00 6339450.00 6626425.00 6316050.00 6603350.00 6579950.00 6651775.00 6387875.00 6674850.00 6651775.00 7082400.00 6985225.00 6603350.00 6410950.00 6674850.00 6316050.00 6579950.00 6626425.00 6723600.00 6508450.00 6626425.00 6698250.00 6962150.00 6746675.00 6459700.00 6149325.00 6436625.00 5646875.00 6029075.00 6244225.00 6459700.00 6149325.00 6149325.00 6149325.00 6316050.00 6077825.00 5765175.00 5503550.00 5693350.00 4952350.00 5406375.00 5670275.00 5718700.00 5454800.00 5477875.00 5406375.00 5646875.00 5477875.00 5144750.00 4903925.00 5311150.00 4426825.00 5001100.00 5262725.00 5262725.00 4952350.00 4665375.00 4642300.00 4903925.00 4665375.00 4211675.00 3899025.00 4234750.00 3445325.00 4162925.00 4544800.00 4665375.00 4401475.00 4068025.00 4306575.00 4401475.00 4329650.00 3611725.00 3278600.00 3516825.00 2799225.00 3540225.00 3804125.00 4019275.00 3660475.00 3324750.00 3516825.00 3611725.00 3421925.00 2704325.00 2391675.00 2678650.00 1889225.00 2750475.00 3278600.00
Name of dataseries
Source
Description
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') 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