Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7855.5 7463.5 7830.5 7735.5 7824.5 8087 8027.5 8112 7920.5 7630.5 7728.5 7657 7780.5 7984 8163 8038.5 7863 7603.5 7563.5 7504.5 7526.5 7472 7487.5 7376.5 7185 7420 7548.5 7692 7624.5 7438 7314.5 7268.5 6929 7187.5 7330 7330.5 7227 6214.5 5420.5 5311 5343 4807 4590.5 4531 4551.5 4368 4446 4671.5 4958.5 5157 5240.5 5309 5330 5510 5854 5624.5 5635.5 5566 5491.5 5500.5 5396.5 5468.5 5628.5 5590.5 5616 5691 5651 5605.5 5223.5 5179 5215.5 5425 5562 5761.5 6012 6366 6313 6330.5 6025.5 5754 5811.5 5898.5 5808.5 6185 6841.5 6666.5 6521 6317.5 6261 6221 6188 7620 8332 8856 8325 7668.5 7511 6888.5 6605 6609.5 6775 6538 6384 6444 6291.5 6387 6455 6188 5857.5 6167.5 6290.5 6481.5 6597 6878.5 6847 6435.5
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