plot.surv_explainer: Plot for surv_explainer object

View source: R/plot_explainer.R

plot.surv_explainerR Documentation

Plot for surv_explainer object

Description

Function plot for surv_explainer object visualise estimated survival curve of mean probabilities in chosen time points.

Usage

## S3 method for class 'surv_explainer'
plot(x, ...)

Arguments

x

object of class "surv_explainer"

...

other arguments for function ggsurvplot

Examples


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)
plot(surve_cph)


MI2DataLab/survxai documentation built on Sept. 10, 2022, 12:03 a.m.