# \donttest{
## Requires prior installation of suggested package gbm to run
## Survival response example
library(survival)
fo <- Surv(time, status) ~ .
control <- CVControl()
gbm_res1 <- resample(fo, data = veteran, GBMModel(n.trees = 25), control)
gbm_res2 <- resample(fo, data = veteran, GBMModel(n.trees = 50), control)
gbm_res3 <- resample(fo, data = veteran, GBMModel(n.trees = 100), control)
res <- c(GBM1 = gbm_res1, GBM2 = gbm_res2, GBM3 = gbm_res3)
res_diff <- diff(res)
summary(res_diff)
plot(res_diff)
# }
Run the code above in your browser using DataLab