if (FALSE) {
library(h2o)
h2o.init()
iris_hf <- as.h2o(iris)
summary(iris_hf)
# Cut sepal length column into intervals determined by min/max/quantiles
sepal_len_cut <- cut(iris_hf$Sepal.Length, c(4.2, 4.8, 5.8, 6, 8))
head(sepal_len_cut)
summary(sepal_len_cut)
}
Run the code above in your browser using DataLab