Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
12.610 10.862 52.929 56.902 81.776 87.876 82.103 72.846 60.632 33.521 15.342 7.758 8.668 13.082 38.157 58.263 81.153 88.476 72.329 75.845 61.108 37.665 12.755 2.793 12.935 19.533 33.404 52.074 70.735 69.702 61.656 82.993 53.990 32.283 15.686 2.713 12.842 19.244 48.488 54.464 84.192 84.458 85.793 75.163 68.212 49.233 24.302 5.402 15.058 33.559 70.358 85.934 94.452 129.305 113.882 107.256 94.274 57.842 26.611 14.521
Seasonal Period
1
12
1
2
3
4
6
12
Chart options
R Code
par1 <- as.numeric(par1) n <- length(x) sx <- sort(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Variance Reduction Matrix',6,TRUE) a<-table.row.end(a) for (bigd in 0:2) { for (smalld in 0:3) { mylabel <- 'V(Y[t],d=' mylabel <- paste(mylabel,as.character(smalld),sep='') mylabel <- paste(mylabel,',D=',sep='') mylabel <- paste(mylabel,as.character(bigd),sep='') mylabel <- paste(mylabel,')',sep='') a<-table.row.start(a) a<-table.element(a,mylabel,header=TRUE) myx <- x if (smalld > 0) myx <- diff(x,lag=1,differences=smalld) if (bigd > 0) myx <- diff(myx,lag=par1,differences=bigd) a<-table.element(a,var(myx)) a<-table.element(a,'Range',header=TRUE) a<-table.element(a,max(myx)-min(myx)) a<-table.element(a,'Trim Var.',header=TRUE) smyx <- sort(myx) sn <- length(smyx) a<-table.element(a,var(smyx[smyx>quantile(smyx,0.05) & smyx<quantile(smyx,0.95)])) 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