oldFunctions/model_build_3.R

In ryanbieber/Time-Series-Catch-All: Looks at time series data and produces the best forecast from them

#' Model building for DLM
#'
#' @param p used in DLM modelling
#'
#' @return DLM
#' @export
#'
#' @examples Quarterly seasonal model
model.build.3 <- function(p) {
  return(
    dlmModPoly(2, dV=p[1], dW=p[2:3]) +
      dlmModSeas(4, dV=p[4])
  )
}