R/35_metropolis_print.R

In nk027/bvar: Hierarchical Bayesian Vector Autoregression

#' @export
print.bv_metropolis <- function(x, ...) {

  cat("Object with settings for the Metropolis-Hastings step in `bvar()`.\n",
    "Scaling parameter: ", paste0(x[["scale_hess"]], collapse = ", "), "\n",
    "Automatic acceptance adjustment: ", x[["adjust_acc"]], "\n", sep = "")
  if(x[["adjust_acc"]]) {
    cat("Target acceptance: [", x[["acc_lower"]], ", ", x[["acc_upper"]], "]\n",
      "Change applied: ", x[["acc_loosen"]] - 1, "\n", sep = "")
  }

  return(invisible(x))
}