Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
128.6 128.9 129.06 129.23 129.27 129.33 129.35 129.31 129.4 129.49 129.47 129.46 129.45 129.28 129.2 129.25 129.14 129.11 129.02 129.08 128.99 129.11 129.08 129.19 129.23 129.25 129.31 129.33 129.39 129.55 129.43 129.45 129.57 129.76 129.92 130.08 130.41 130.84 131.24 131.49 131.74 132.34 133.5 134.43 136.5 137.41 138.02 138.15 138.24 138.2 138.31 138.65 139.3 139.8 140.52 141.57 141.77 141.66 141.36 141.17
Seasonal Period
12
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