View source: R/plot_model_performance.R
plot.surv_model_performance_explainer | R Documentation |
Function plot for surv_model_performance object.
## S3 method for class 'surv_model_performance_explainer' plot(x, ...)
x |
object of class "surv_model_performance" |
... |
optional, additional objects of class "surv_model_performance_explainer" |
library(survxai) library(rms) data("pbcTest") data("pbcTrain") predict_times <- function(model, data, times){ prob <- rms::survest(model, data, times = times)$surv return(prob) } cph_model <- cph(Surv(years, status)~sex + bili + stage, data=pbcTrain, surv=TRUE, x = TRUE, y=TRUE) surve_cph <- explain(model = cph_model, data = pbcTest[,-c(1,5)], y = Surv(pbcTest$years, pbcTest$status), predict_function = predict_times) mp_cph <- model_performance(surve_cph) plot(mp_cph)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.