Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3650 3530 3800 4130 3440 4000 3690 4210 4240 4260 4510 4260 3420 3660 3790 3270 3250 3570 3410 4270 4410 4450 3990 4000 4140 3800 3060 3270 3040 3750 3330 3840 4060 3830 3880 3820 3640 2880 3710 2980 3190 3090 3190 3410 3310 3480 3750 3200 3150 3250 3290 2900 2940 3460 3890 3040 3000 3520 2850 2730 2820 3240 3160 3010 2720 2650 2790 3090 3240 3690 3490 2790 3060 3210 3080 2640 2890 3330 2970 2870 3140 3150 2940 2910 3060 2900 2980 2890 2920 2940 3300 3050 2740 3080 3090 2830 3390 3210 2970 2810 2690 2800 2920 2870 2860 3090 3180 3090
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
par4 <- '6' par3 <- '' par2 <- '' par1 <- 'N1809' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation