function to get AUC from H2O models

h2o_auc.R

#' description:
#' Get the AUC for the {validation,test} data set for a given model.
#' usage:
#' list(best_dl, best_gbm) %>% map_dbl(h2o_auc_v) %>% set_names('DL AUC', 'GBM AUC')
#' list(best_dl, best_gbm) %>% map_dbl(h2o_auc_t) %>% set_names('DL AUC', 'GBM AUC')
library(h2o)
library(purrr)
h2o_auc_t <- compose(h2o.auc, partial(h2o.performance, newdata = test))
h2o_auc_v <- compose(h2o.auc, partial(h2o.performance, newdata = valid))