# NOT RUN {
## Requires prior installation of suggested package gbm to run
library(survival)
control <- CVControl() %>% set_predict(times = c(90, 180, 360))
res <- resample(Surv(time, status) ~ ., data = veteran, model = GBMModel,
control = control)
cal <- calibration(res)
plot(cal)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab