- small bug fix for significance test

Boehringer-Ingelheim · Sep 22, 2023 · 80a80ad · 80a80ad
1 parent 6e12c0c
commit 80a80ad
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/BMCPMod.R b/R/BMCPMod.R
@@ -52,7 +52,7 @@ BayesMCPMod <- function (
   post_probs   <- apply(contr_mat$contMat, 2, getPostProb, post_combs_i)
 
   res_list <- list(
-    sign       = ifelse(max_prob > crit_prob, 1, 0),
+    sign       = ifelse(max(post_probs) > crit_prob, 1, 0),
     p_val      = max(post_probs),
     post_probs = post_probs)