tweak

git-svn-id: https://svn.r-project.org/R/trunk@87821 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Feb 25, 2025 · 9981227 · 9981227
1 parent 1067238
commit 9981227
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/nmath/qbeta.c b/src/nmath/qbeta.c
@@ -66,7 +66,7 @@ double qbeta(double alpha, double p, double q, int lower_tail, int log_p)
     // allowing p==0 and q==0  <==> treat as one- or two-point mass
 
     double qbet[2];// = { qbeta(), 1 - qbeta() }
-    qbeta_raw(alpha, p, q, lower_tail, log_p,
+    qbeta_raw(alpha, p, q, lower_tail != 0, log_p != 0,
 	      // log_q_cut ,      n_N
 	      USE_LOG_X_CUTOFF, n_NEWTON_FREE, qbet);
     return qbet[0];