R/print.summary.bgvarest.R

In franzmohr/bgvars: Bayesian Inference of Global Vector Autoregressive and Gloal Vector Error Correction Models

#' @include summary.bgvarest.R
#'
#' @export
#' @rdname summary.bgvarest
print.summary.bgvarest <- function(x, digits = max(3L, getOption("digits") - 3L), ...){
  for (i in 1:length(x)) {
    if (i != 1) {
      cat("--------------------------------------------------------------------------------\n")
      cat("--------------------------------------------------------------------------------\n\n")
      
    }
    cat("Submodel: ", names(x)[i], "\n")
    print(x[[i]], digits = digits, ...)
  }
}