data(dataDIVAT2)
sl1<-sl.time(method=c("cox.ridge", "aft.ggamma"), metric="ribs",
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