R/print.R

In McChickenNuggets/blblm: Perform bag of little bootstrap for linear regression model

#' Print the formula of blblm object
#' @importFrom utils capture.output
#' @param x blblm object
#' @param ... extra conditions
#'
#' @return formula of blblm object x
#' @export
#' @method print blblm
#'
#' @examples
#' print(blblm(mpg ~ wt * hp, data = mtcars, m = 3, B = 100))
print.blblm <- function(x, ...) {
  cat(class(x), "model:", capture.output(x$formula))
  cat("\n")
}
#' @export
#' @method print blbglm
print.blbglm <- function(x, ...) {
  cat(class(x), "model:", capture.output(x$formula))
  cat("\n")
}