# NOT RUN {
## Survival response example
library(survival)
library(MASS)
fo <- Surv(time, status != 2) ~ sex + age + year + thickness + ulcer
control <- CVControl()
gbmres1 <- resample(fo, Melanoma, GBMModel(n.trees = 25), control)
gbmres2 <- resample(fo, Melanoma, GBMModel(n.trees = 50), control)
gbmres3 <- resample(fo, Melanoma, GBMModel(n.trees = 100), control)
res <- Resamples(GBM1 = gbmres1, GBM2 = gbmres2, GBM3 = gbmres3)
perfdiff <- diff(res)
summary(perfdiff)
plot(perfdiff)
# }
Run the code above in your browser using DataLab