Deep Learning

m <-
  h2o.deeplearning(x, y, train, nfolds = 10, model_id = "DL_defaults")

tuned deeplearning

m <- h2o.deeplearning(x,
                      y,
                      train,
                      nfolds = 10,
                      model_id = "DL_best",
                      activation = "Tanh",
                      hidden = c(162,162),
                      stopping_metric = "MSE",
                      stopping_tolerance = 0.0005,
                      stopping_rounds = 5,
                      epochs = 20000,
                      train_samples_per_iteration = 0,
                      score_interval = 3)