if (FALSE) {
# Generate list of EBMs with different random seeds
ebms <- lapply(1:3, FUN = function(i) {
ebm(mpg ~ ., data = mtcars, outer_bags = 1, random_state = i, obj = "rmse")
})
# Merge EBMs into one and plot term contribution for `cyl`
merged <- do.call(merge, args = ebms)
plot(merged, term = "cyl")
}
Run the code above in your browser using DataLab