R中是否有功能将R中的大混淆矩阵简化为2x2正负电平混淆矩阵?

问题描述

假设我们有以下混淆矩阵:

a <- round(matrix(runif(100,1,100),nrow=10),0)
colnames(a) <- LETTERS[1:10]
rownames(a) <- LETTERS[1:10]
a
    A  B  C  D  E  F  G  H  I  J
A  42 35  1  9 83 26  4 21 82  4
B 100 53 28 33 52 62 73 85 53 49
C  26 12 33 63 57  4 46 61 21 55
D  51 89 59 45  1 15 57 76 85 84
E   9 95 26 80 15 71 87 57 38 73
F  82  5  5 29 87  7 56 28 31 56
G  39 50 12 58  9 63 74 74 77  8
H  80 23 71  5 25 94 63 55 74 15
I  21 86 94 20 98 10 32 35 84 69
J  95 54 32 73 58 97 40 52 57 11

考虑到列是实际值而行是预测值,是否有一个函数可以使用此矩阵来输出2 x 2(TP / TN / FP / FN)混淆矩阵,例如A是正数级别,其余字母将构成否定级别?谢谢!

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)