Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5495 5365 5315 5335 5330 5365 5435 5535 5585 5615 5610 5585 5820 5645 5650 5725 5825 5870 5860 5835 5840 5805 5770 5680 5675 5690 5610 5610 5630 5615 5585 5555 5585 5530 5425 5630 5560 5435 5320 5150 5125 5025 5020 4935 4880 4870 4920 4935 5000 4955 4970 4990 4920 4930 4955 5000 5025 5075 5075 5105 5050 5055 5095 5025 5050 5035 4985 5005 4910 4910 4870 4850 4810 4810 4730 4850 4895 4845 4805 4825 4830 4720 4785 4705 4840 4820 4795 4810 4840 4810 4835 4860 4845 4935 4870 4830 4895 4920 4925 4860 4820 4790 4775 4735 4755 4745 4705 4665 4650 4590 4625 4685 4665 4675 4690 4600
Name of dataseries
Source
Description
Season
0
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