data <- data.frame(
pred = factor(c("A", "B", "A", "B"), levels = c("A", "B")),
obs = factor(c("A", "B", "B", "B"), levels = c("A", "B")),
A = c(0.8, 0.2, 0.7, 0.3),
B = c(0.2, 0.8, 0.3, 0.7)
)
multiClassSummary(data)
Run the code above in your browser using DataLab