data(dataDIVAT2)
# The estimation of the model from the first 200 lignes
model <- LIB_COXall(times="times", failures="failures", data=dataDIVAT2,
cov.quanti=c("age"), cov.quali=c("hla", "retransplant", "ecd"))
# The calibration plot from the validation sample of 150 patients
plot(model, n.groups=5, pro.time=12, col=3,
xlab="Predicted 12-year survival", ylab="Observed 12-year survival",
newdata=dataDIVAT2[151:300,], times="times", failures="failures")
Run the code above in your browser using DataLab