## S3 method for class 'bagEarth':
predict(object, newdata = NULL, type = "response", ...)
## S3 method for class 'bagFDA':
predict(object, newdata = NULL, type = "class", ...)
bagEarth
bagEarth
data(trees)
fit1 <- bagEarth(Volume ~ ., data = trees, keepX = TRUE)
fit2 <- bagEarth(Volume ~ ., data = trees, keepX = FALSE)
hist(predict(fit1) - predict(fit2))
Run the code above in your browser using DataLab