# NOT RUN {
library(survival)
library(MASS)
res <- resample(Surv(time, status != 2) ~ sex + age + year + thickness + ulcer,
data = Melanoma, model = GBMModel,
control = CVControl(times = 365 * c(2, 5, 10)))
cal <- calibration(res)
plot(cal)
# }
Run the code above in your browser using DataLab