data(dataK)
# The estimation of the model
model <- sPLANN(formula = Surv(time, event)~stade, data = dataK, inter = 365.241)
#Predictions of the model
pred <- predict(model)
# The apparent AUC at 10-year post-transplantation
metrics(formula = Surv(time, event)~1, data=dataK,
prediction.matrix = pred$predictions, prediction.times=pred$times, metric
="auc", pro.time=10*365.241)
# The integrated Brier score up to 10 years post-transplanation
metrics(formula = Surv(time, event)~1, data=dataK,
prediction.matrix = pred$predictions, prediction.times=pred$times, metric
="ribs", pro.time=10*365.241)
Run the code above in your browser using DataLab