data("dataDIVAT2")
# The estimation of the model
formula<-Surv(times,failures) ~ age + hla + retransplant + ecd
data=dataDIVAT2[1:150,]
model <- LIB_COXall(formula, data=data)
# 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,])
Run the code above in your browser using DataLab