Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1329 1385 1681 1591 1598 1557 1190 932 1664 1717 1567 1355 1430 1863 1868 1711 1873 2095 1379 1021 1999 2094 2026 1390 1744 2117 1823 1963 1816 1966 1309 1250 2184 2295 1870 1222 1640 2194 2179 1976 1850 2077 1658 1156 2400 2218 1802 1444 1804 1541 2206 1972 1815 1749 1492 1307 1916 2035 1855 1086 1951 1733 1868 1532 1894 1586 1247 1212 2119 1931 1649 1296 1625 1454 1562 1612 1648 1412 1219 1207 1614 1537 1497 1141 1135 1368 1203 1201 1190 1347 607 914 1606 1518 1120 910
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')
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