Add ContingencyTable::is_integer() member function to check whether t…

…he table contains all integers
dtcenter · Aug 28, 2024 · 5e1d81d · 5e1d81d
1 parent 38a5d4e
commit 5e1d81d
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 1 deletion.
diff --git a/src/libcode/vx_statistics/contable.cc b/src/libcode/vx_statistics/contable.cc
@@ -316,6 +316,22 @@ double ContingencyTable::min() const {
    return min;
 }
 
+////////////////////////////////////////////////////////////////////////
+
+bool ContingencyTable::is_integer() const {
+   bool status = true;
+
+   // Check that each entry contains an integer
+   for(auto &x : E) {
+      if(!is_eq(trunc(x), x)) {
+         status = false;
+         break;
+      }
+   }
+
+   return status;
+}
+
 ////////////////////////////////////////////////////////////////////////
 //
 // Code for class TTContingencyTable

diff --git a/src/libcode/vx_statistics/contable.h b/src/libcode/vx_statistics/contable.h
@@ -20,7 +20,8 @@
 
 ////////////////////////////////////////////////////////////////////////
 
-class TTContingencyTable;   //  forward reference
+// Forward reference
+class TTContingencyTable;
 
 ////////////////////////////////////////////////////////////////////////
 //
@@ -93,6 +94,8 @@ class ContingencyTable {
       double max() const;
       double min() const;
 
+      bool is_integer() const;
+
       // Statistics
       virtual double gaccuracy () const;
       virtual double gheidke   () const;