if (FALSE) {
library(h2o)
h2o.init()
f <- "https://s3.amazonaws.com/h2o-public-test-data/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.weights(dl_model, matrix_id = 1)
}
Run the code above in your browser using DataLab