Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2620 2940 3080 3120 2420 2930 2780 2890 3000 3380 3460 2810 3530 3590 3840 3520 2820 3310 2870 3340 3660 3650 3670 3050 3770 3480 3780 2750 3600 3550 2750 3480 3870 3640 3340 3030 3850 3400 3450 3000 3190 4100 2960 3640 4210 4040 3470 3380 4490 3670 3650 3520 3470 3570 3440 3580 4120 4370 3250 3260 3610 3600 3620 3020 3240 3360 3450 3640 3690 3870 3810 3430 3910 3800 4140 3350 3360 3310 2850 3630 4340 4260 3690 2990 3620 3590 3940 2970 3470 4310 3060 3480 4190 3470 2650 2620 3620 3090 3620 2820 3060 3600 2940 3550 4590 3120 2800 3380 3490 2940 3500 2980 3040 4160 3110 3890
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