## Not run:
# data(trees)
# ## out of bag predictions vs just re-predicting the training set
# fit1 <- bagEarth(Volume ~ ., data = trees, keepX = TRUE)
# fit2 <- bagEarth(Volume ~ ., data = trees, keepX = FALSE)
# hist(predict(fit1) - predict(fit2))
# ## End(Not run)
Run the code above in your browser using DataLab