Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6600 6160 6320 5820 6080 6240 5740 6980 6540 6780 6580 6020 6440 6440 7040 6620 6460 6320 6560 6080 6040 6260 5780 5120 6040 5860 5900 5160 5800 5300 5600 5620 6300 5800 5460 5420 5800 5260 5900 5840 5640 5560 5540 5540 5480 5440 5260 5420 5600 5200 5480 5300 4660 4940 4880 4980 5160 5180 4860 5220 4900 4740 4920 4780 4300 4540 4420 4660 4760 4560 4600 4800 4980 4300 4800 3980 4120 4580 4240 4540 4200 4780 4820 4320 4300 3700 3920 3740 4120 4160 4160 3960 3960 4160 3920 3460 4040 3720 4060 4140 3700 3900 3720 3760 3520 3800 3520 3640 4200 3860 4160 3920 3860 3860 3780
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