R/print.rgcca_bootstrap.R

Defines functions print.rgcca_bootstrap

Documented in print.rgcca_bootstrap

#' @export
#' @rdname print
#' @order 4
print.rgcca_bootstrap <- function(x, ...) {
  stopifnot(is(x, "rgcca_bootstrap"))
  cat("RGCCA bootstrap object obtained with", x$n_boot, "bootstrap samples.")
  cat("\n")
}
Tenenhaus/RGCCA documentation built on Feb. 12, 2024, 8:34 a.m.