Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1320 1840 2460 1740 2460 2360 2220 1420 1660 1840 1600 1660 1460 2180 2180 2180 2540 1980 1800 2020 2400 2020 2080 1700 2080 1600 2500 2740 3120 2320 1980 1980 1660 1880 1880 1740 2400 2320 2020 2400 2220 2020 1460 2400 2020 1360 1800 2220 1600 1600 2540 2180 2260 1880 1460 1980 1460 1940 1460 1840 1940 2120 2400 2840 2980 2360 1600 2540 1660 2260 2180 2020 1800 2080 2700 2840 2360 2460 2320 1880 2120 1880 1560 1660 1880 1700 2080 2460 1840 1980 1980 1800 1700 1740 1880 1840 1800 2400 2320 2120 2260 1840 1520 1940 1700 2260 2220 2260 2700 2640 2640 2880 2640 2600 2500 2700 2540 2700 2840 2920 2600 2880 3060 4300 3640 3580
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation