From 8230b81c6cb31e129772f6e54e663e93f8c621c9 Mon Sep 17 00:00:00 2001
From: "Victor R. Cardoso" <labrax@users.noreply.github.com>
Date: Thu, 11 Feb 2021 11:23:43 +0000
Subject: [PATCH] tnr_ using same cutoff as confusionMatrix_

---
 src/confusionMatrix_.cpp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/confusionMatrix_.cpp b/src/confusionMatrix_.cpp
index b0cffc1..7ff1288 100644
--- 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;
 
 }