Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
989 1215 2911 2372 2013 2050 1580 1407 903 709 490 206 1101 1189 2877 2489 2145 1837 1613 1296 849 642 475 224 920 1263 2999 2988 2163 2391 1556 1089 976 626 392 203 1052 1034 2353 3075 2309 2009 1464 1099 1035 792 406 187 862 822 2128 2264 1987 1728 1311 1152 945 704 526 361 1035 869 2698 2367 1926 1843 1404 1314 1007 865 587 339 1143 1807 2380 2337 2117 1789 1569 1305 952 810 473 278 993 1038 2257 2284 1747 1515 1233 882 1029 707 391 239 592 692 2127 1854 1468 1535 1203 880 821 604 315 139 528 654 1895 1598 1519 1242 1027 762 735 485 281 131 651 611 1898 1385 1047 1008 843 833 711 444 315 204 473 566 1611 1301 1154 1158 862 801 559 404 223 158 548 647 1757 1326 1308 1175 992 808 758 553 310 146
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation