R/print_bootbsw.R

In BSW: Fitting a Log-Binomial Model Using the Bekhit–Schöpe–Wagenpfeil (BSW) Algorithm

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


  cat("\nBootstrap Summary:\n")
  cat(x$message, "\n")

  cat("\nBootstrap Coefficients:\n")
  print(round(x$Coefficients, 4))

  invisible(x)
}