From 9b7826267d6d4ab1585ede603a675e8362fd83c0 Mon Sep 17 00:00:00 2001
From: Kevin Ushey <kevin@posit.co>
Date: Fri, 9 Oct 2026 10:53:56 -0700
Subject: [PATCH] cap probabilities with a scalar in kernel_wPB_fast

---
 src/kernel_weight.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/kernel_weight.cpp b/src/kernel_weight.cpp
index 7aaf685..211a116 100644
--- a/src/kernel_weight.cpp
+++ b/src/kernel_weight.cpp
@@ -108,7 +108,7 @@ NumericVector kernel_wPB_fast(const NumericVector &sorted_w_pv, const NumericVec
       probs = geom_weight(NumericVector(numWeights[i], sorted_w_pv[i]), weights[Range(0, numWeights[i] - 1)]);
     else {
       probs = sorted_w_pv[i] * clone(weights)[Range(0, numWeights[i] - 1)];
-      probs = pmin(probs, NumericVector(numTests, 1.0));
+      probs = pmin(probs, 1.0);
     }
     // transformed values
     pval_transf[i] = ppbinom_vec(a, probs, int(exact), false)[i];