Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.43 1.43 1.43 1.43 1.43 1.43 1.44 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.48 1.57 1.58 1.58 1.58 1.58 1.59 1.6 1.6 1.61 1.61 1.61 1.62 1.63 1.63 1.64 1.64 1.64 1.64 1.64 1.65 1.65 1.65 1.65
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