tnr_ using same cutoff as confusionMatrix_

JackStat · Feb 11, 2021 · 8230b81 · 8230b81
1 parent d3cbb5f
commit 8230b81
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/confusionMatrix_.cpp b/src/confusionMatrix_.cpp
@@ -54,10 +54,9 @@ double npv_(NumericVector actual, NumericVector predicted, double cutoff) {
 // [[Rcpp::export]]
 double tnr_(NumericVector actual, NumericVector predicted, double cutoff) {
 
-  double TN = sum((predicted < cutoff) & (actual == 0));
-  double N = sum(actual == 0);
-  double tnr = TN/N;
+  NumericMatrix cMat = confusionMatrix_(actual, predicted, cutoff);
 
+  double tnr = cMat(0,0) / (cMat(0,0) + cMat(1,0));
   return tnr;
 
 }