R/summary.altf4.R

In fDMA: Dynamic Model Averaging and Dynamic Model Selection for Continuous Outcomes

Defines functions summary.altf4

Documented in summary.altf4

summary.altf4 <- function(object, ...)
  {
   x <- object
   cat("Mean coefficients: ")
   cat("\n")
   c <- colMeans(x$coeff.[[1]],na.rm=TRUE)
   c <- round(c,digits=4)
   print(c,quote=FALSE)
   cat("\n")
   cat("Forecast quality measures: ")
   cat("\n")
   print(x$summary)
   cat("\n")
  }

Try the fDMA package in your browser