powered by
predict.bagEarth(object, newdata = NULL, type = "response", ...) predict.bagFDA(object, newdata = NULL, type = "class", ...)
bagEarth
earth
type = "response"
earth<
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