# NOT RUN {
data("two_class_example")
cmat <- conf_mat(two_class_example, truth = "truth", estimate = "predicted")
summary(cmat, wide = TRUE)
summary(cmat, wide = TRUE, prevalence = 0.70)
library(dplyr)
data("hpc_cv")
# Compute statistics per resample then summarize
hpc_cv %>%
group_by(Resample) %>%
do(summary(conf_mat(., truth = "obs", estimate = "pred"))) %>%
group_by(name) %>%
summarize(mean = mean(value, na.rm = TRUE),
sd = sd(value, na.rm = TRUE))
# }
Run the code above in your browser using DataLab