# NOT RUN {
library(survxai)
library(rms)
data("pbcTrain")
data("pbcTest")
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))
mp_cph <- model_performance(surve_cph)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab