#' 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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.