library(dplyr)
library(purrr)
library(tidyr)
two_class_res
# ------------------------------------------------------------------------------
# \donttest{
collect_metrics(two_class_res)
# Alternatively, if the tuning parameter values are needed:
two_class_res %>%
dplyr::filter(grepl("cart", wflow_id)) %>%
mutate(metrics = map(result, collect_metrics)) %>%
dplyr::select(wflow_id, metrics) %>%
tidyr::unnest(cols = metrics)
# }
collect_metrics(two_class_res, summarize = FALSE)
Run the code above in your browser using DataLab