如何找到我的混淆矩阵的准确性?
How to find the accuracy of my confusion matrix?
在我的数据中,我已经能够创建一个混淆矩阵:
cm<- table(predict(model,newdata=as.matrix(dat2[,-(1:2)])),dat2$r)
cm
## 0 1 2 3 4 5 6 7
## 0 126 0 0 0 0 0 0 0
## 1 3 483 7 1 12 11 8 7
## 2 1 14 1413 1 60 47 53 46
## 3 0 0 0 90 0 0 0 0
## 4 27 92 144 5 6566 308 500 236
## 5 4 24 63 3 129 1899 201 35
## 6 2 14 40 0 82 100 1994 40
## 7 0 0 0 0 0 0 0 375
如何找到这个混淆矩阵的准确性?或者做 1 - 错误率那么我如何找到错误率?谢谢大家。
为了准确性
sum(diag(cm))/sum(cm)
在我的数据中,我已经能够创建一个混淆矩阵:
cm<- table(predict(model,newdata=as.matrix(dat2[,-(1:2)])),dat2$r)
cm
## 0 1 2 3 4 5 6 7
## 0 126 0 0 0 0 0 0 0
## 1 3 483 7 1 12 11 8 7
## 2 1 14 1413 1 60 47 53 46
## 3 0 0 0 90 0 0 0 0
## 4 27 92 144 5 6566 308 500 236
## 5 4 24 63 3 129 1899 201 35
## 6 2 14 40 0 82 100 1994 40
## 7 0 0 0 0 0 0 0 375
如何找到这个混淆矩阵的准确性?或者做 1 - 错误率那么我如何找到错误率?谢谢大家。
为了准确性
sum(diag(cm))/sum(cm)