Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
195604 186714 180402 174920 169839 163771 195483 211995 184523 173422 166568 171663 167913 160062 150581 150717 142447 142194 173819 189760 162856 153987 147713 151521 150763 146592 141482 143742 138181 140113 170498 185386 180257 173559 166979 173568 170732 166456 163503 158432 155658 157451 198746 207509 191659 183850 184508 187118 187978 182220 179241 179794 175964 180510 223345 233923 215779 207922 199751 204793 204238 201201 194188 191388 188755 186869 230429 248513 230247 232735 222654 227883 223812 217269 210790 205977 202206 201170 243622 251061 232563 226300 214870 218161 202880 200059 190667 198040 189077 190520 221806 221619 210208 188234 179655 178426 171418 163217 151606 148948 143963 141879 177683 178497 159000 147838 145186 153861 143491 138955 139986 134160 128423 134210 165688 166027 149440 146236 149876 161065 166428 169930 170485 169413 167184 175652 207854 210493 195862 188615 189263 204932 195014 193494 180143 182119 174024 172620 209361 208194 186646 179043 175644
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