# NOT RUN {
library(survival)
res <- resample(Surv(time, status) ~ ., data = veteran, model = GBMModel,
control = CVControl(times = c(90, 180, 360)))
cal <- calibration(res)
plot(cal)
# }
Run the code above in your browser using DataLab