Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
4430 4190 4630 4480 4490 4520 4130 4710 4530 4500 4410 4200 4390 4080 4610 4160 4330 4250 4050 4080 4260 4490 4070 3860 4310 4170 4420 3930 4320 4130 4010 4320 4270 4490 4430 4190 4630 4540 4660 4720 4760 4820 4710 4610 4550 4620 4360 4470 4520 4290 4840 4510 4410 4280 4470 4270 4230 4540 4210 4080 4630 4250 4670 4590 4660 4500 4740 4690 4570 4810 4640 4700 4970 4430 4740 4500 4700 4680 4840 4870 5060 5010 4720 4840 5170 4710 4950 5090 5070 4800 4970 5040 4730 5130 4890 4840 5200 4380 5020 5120 4970 4800 5100 5110 5050 5300 5050 5230 5480 5090 5090 5400 5220 5190 5550 5410 5360 5690 5430 5540 5630 5030 5470 5550 5280 5200
Name of dataseries
Source
Description
Season
No season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- 'No season' par3 <- '' par2 <- '' par1 <- '' 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