data(dataDIVAT2)
sl1 <- survivalSL(method=c("LIB_COXridge", "LIB_AFTggamma"), metric="ci",
data=dataDIVAT2[1:150,], times="times", failures="failures", pro.time = 12,
cov.quanti=c("age"), cov.quali=c("hla", "retransplant", "ecd"), cv=3)
print(sl1, digits=4)
Run the code above in your browser using DataLab