R/print_explainer.R

In survxai: Visualization of the Local and Global Survival Model Explanations

#' Print Survival Explainer Summary
#'
#' @param x a model survival expaliner created with the `explain()` function
#' @param ... further arguments passed to or from other methods
#'
#' @export

print.surv_explainer <- function(x, ...) {
  cat("Model label: ", x$label, "\n")
  cat("Model class: ", paste(x$class, collapse = ","), "\n")
  cat("Data head  :\n")
  print(head(x$data,2))
  return(invisible(NULL))
}