Bugfix #2958 main_v11.1 ORSS (#2972)

Co-authored-by: MET Tools Test Account <[email protected]>
dtcenter · Sep 17, 2024 · 5248377 · 5248377
1 parent c65c102
commit 5248377
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/libcode/vx_statistics/contable_stats.cc b/src/libcode/vx_statistics/contable_stats.cc
@@ -482,11 +482,11 @@ double TTContingencyTable::lodds_ci(double alpha,
 double TTContingencyTable::orss() const {
    double v, num, den;
 
-   num = fy_oy() * fn_on() - fy_on() * fn_oy();
-   den = fy_oy() * fn_on() + fy_on() * fn_oy();
+   num = (double) fy_oy() * fn_on() - (double) fy_on() * fn_oy();
+   den = (double) fy_oy() * fn_on() + (double) fy_on() * fn_oy();
 
-   if(den == 0) v = bad_data_double;
-   else         v = (double) num / den;
+   if(is_eq(den, 0.0)) v = bad_data_double;
+   else                v = num / den;
 
    return(v);
 }