if (FALSE) {
library(h2o)
h2o.init()
iris_hf <- as.h2o(iris)
models <- h2o.train_segments(algorithm = "gbm",
segment_columns = "Species",
x = c(1:3), y = 4,
training_frame = iris_hf,
ntrees = 5,
max_depth = 4)
as.data.frame(models)
}
Run the code above in your browser using DataLab