#data("dataDIVAT2")
#formula<-Surv(times,failures) ~ age + hla + retransplant + ecd
#sl1 <- survivalSL(formula, method=c("LIB_AFTgamma", "LIB_PHgompertz"
#,"LIB_AFTllogis"), metric="auc",
#data=dataDIVAT2[1:100,],
#pro.time = 12,
#cv=3)
# The prognostic capacities from the same training sample
#summary(sl1)
Run the code above in your browser using DataLab