data(dataDIVAT2)
# The estimation of the model
model <- LIB_COXridge(times="times", failures="failures", data=dataDIVAT2,
cov.quanti=c("age"), cov.quali=c("hla", "retransplant", "ecd"), lambda=1)
# The apparent AUC at 10-year post-transplantation
metrics(times="times", failures="failures", data=dataDIVAT2,
prediction.matrix=model$predictions, prediction.times=model$times,
metric="auc", pro.time=10)
# The integrated Brier score up to 10 years post-transplanation
metrics(times="times", failures="failures", data=dataDIVAT2,
prediction.matrix=model$predictions, prediction.times=model$times,
metric="ribs", pro.time=10)
Run the code above in your browser using DataLab