if (FALSE) {
if(requireNamespace("h2o")) {
library(h2o)
h2o.init(ignore_config = TRUE, nthreads = 2, bind_to_localhost = FALSE, insecure = TRUE)
prostate_path <- system.file("extdata", "prostate.csv", package = "h2o")
prostate <- h2o.importFile(path = prostate_path, header = TRUE)
y <- "CAPSULE"
prostate[,y] <- as.factor(prostate[,y]) #convert to factor for classification
aml <- h2o.automl(y = y,
training_frame = prostate,
include_algos = "GLM",
max_models = 1,
max_runtime_secs = 60)
# extract the model parameters
model.param <- automlModelParam(aml@leader)
}
}
Run the code above in your browser using DataLab