Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
980 1154 1014 1362 1328 1512 1656 1868 2170 1366 1134 1734 1292 1890 2066 2036 2376 2176 2122 2638 2366 2260 1846 1800 1408 1342 1510 1540 1536 2044 2666 2356 2592 2980 2178 2298 1654 1790 1894 1966 1772 1924 2472 2792 2720 2324 2244 2638 2598 2488 2576 2554 1520 2490 2762 2908 3882 3138 2550 2748 2484 2774 3182 2948 2296 3114 2358 2480 2616 1970 1882 1770 2862 2926 2622 2236 1906 2240 2316 1750 2384 2296 2046 2568 2366 2220 2374 1886 2234 2096 2666 2920 4850 2738 1922 2628 2106 1636 1148 1300 1116 1582 1272 1712 1440 1712 1626 1210 1372 1354 1202 1080 926 1590 2080 2268 1956 1670 1182 992 1300 1250 1278 1302 1278 2388
Name of dataseries
Source
Description
Season
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