Fix for various CDFs with negative q and lower.tail=FALSE

chjackson · Jul 4, 2022 · 9dbfef7 · 9dbfef7
1 parent d5b414e
commit 9dbfef7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/distribution.h b/src/distribution.h
@@ -9,7 +9,7 @@ namespace {
     if (lower_tail) {
       if (give_log) {return R_NegInf;} else {return 0;}
     } else {
-      if (give_log) {return 0;} else {return R_NegInf;}
+      if (give_log) {return 0;} else {return 1;}
     } 
   }