data("dataDIVAT2")
#The outcome model base on a Super Learner from the first 150 individuals of the data base
formula<-Surv(times,failures) ~ age + hla + retransplant + ecd
sl1 <- survivalSL(formula, data=dataDIVAT2[1:150,],
methods=c("LIB_AFTgamma", "LIB_PHgompertz"), metric="auc", cv=3)
# The calibration plot from the validation sample of 150 patients
plot(sl1, method="sl", n.groups=5,
pro.time=12, col=2,
xlab="Predicted 12-year survival",
ylab="Observed 12-year survival",
newdata=dataDIVAT2[151:300,])
Run the code above in your browser using DataLab