Backcasting is now the default initialisation for gum()

Author: config-i1

R/adam-gum.R

@@ -102,7 +102,7 @@ utils::globalVariables(c("xregData","xregModel","xregNumber","initialXregEstimat
 #' @export
 gum <- function(data, orders=c(1,1), lags=c(1,frequency(data)), type=c("additive","multiplicative"),
                 formula=NULL, regressors=c("use","select","adapt","integrate"),
-                initial=c("optimal","backcasting","complete"),
+                initial=c("backcasting","optimal","complete"),
                 persistence=NULL, transition=NULL, measurement=rep(1,sum(orders)),
                 loss=c("likelihood","MSE","MAE","HAM","MSEh","TMSE","GTMSE","MSCE"),
                 h=0, holdout=FALSE, bounds=c("admissible","none"), silent=TRUE,

R/autogum.R

@@ -21,7 +21,7 @@
 #' @export
 auto.gum <- function(data, orders=3, lags=frequency(data), type=c("additive","multiplicative","select"),
                      formula=NULL, regressors=c("use","select","adapt","integrate"),
-                     initial=c("optimal","backcasting","complete"), ic=c("AICc","AIC","BIC","BICc"),
+                     initial=c("backcasting","optimal","complete"), ic=c("AICc","AIC","BIC","BICc"),
                      loss=c("likelihood","MSE","MAE","HAM","MSEh","TMSE","GTMSE","MSCE"),
                      h=0, holdout=FALSE, bounds=c("admissible","none"), silent=TRUE,
                      ...){