如何解决如何合并来自多个算法输出的混淆矩阵?
我想在一张表中提取多个预测模型的预测混淆矩阵,以便于比较。 我从每个模型中收集了混淆矩阵表,并将它们合并以创建下表。
Table1 <- rbind(confmat_nb$table,confmat_nb_2$table,confmat_svm$table)
Table1
Reference
excluded included
naive_bayes excluded 6234 46
included 3107 470
naive_bayes_2 excluded 5774 60
included 3567 456
svm excluded 7197 101
included 2144 415
表2是使用以下代码创建的
byClass <- rbind(naive_bayes =round(confmat_nb$byClass,3),naive_bayes_2=round(confmat_nb_2$byClass,svm = round(confmat_svm$byClass,3)
overall <- rbind(naive_bayes =round(confmat_nb$overall,naive_bayes_2=round(confmat_nb_2$overall,svm = round(confmat_svm$overall,3)
Table2 <- rbind(byClass,overall)
Table2
Accuracy Sensitivity Specificity Pos Pred Value Neg Pred Value Precision
naive_bayes 0.680 0.911 0.667 0.131 0.993 0.131
naive_bayes_2 0.632 0.884 0.618 0.113 0.990 0.113
svm 0.772 0.804 0.770 0.162 0.986 0.162
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。