if (FALSE) {
library(h2o)
h2o.init()
f <- "https://h2o-public-test-data.s3.amazonaws.com/smalldata/chicago/chicagoCensus.csv"
census <- h2o.importFile(f)
census[, 1] <- as.factor(census[, 1])
dl_model <- h2o.deeplearning(x = c(1:3), y = 4, training_frame = census,
hidden = c(17, 191),
epochs = 1,
balance_classes = FALSE,
export_weights_and_biases = TRUE)
h2o.biases(dl_model, vector_id = 1)
}
Run the code above in your browser using DataLab