Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
106.7 101.1 97.8 113.8 107.1 117.5 113.7 106.6 109.8 108.8 102.0 114.5 116.5 108.6 113.9 109.3 112.5 123.4 115.2 110.8 120.4 117.6 111.2 131.1 118.9 115.7 119.6 113.1 106.4 115.5 111.8 109.6 121.5 109.5 109.0 113.4 112.7 114.4 109.2 116.2 113.8 123.6 112.6 117.7 113.3 110.7 114.7 116.9 120.6 111.6 111.9 116.1 111.9 125.1 115.1 116.7 115.8 116.8 113.0 106.5
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