From 80a80ad469b92b99b4863e6c4cf8b297b2e27ef6 Mon Sep 17 00:00:00 2001
From: Wojciekowski <stephan.wojciekowski@boehringer-ingelheim.com>
Date: Fri, 22 Sep 2023 13:21:04 +0200
Subject: [PATCH] - small bug fix for significance test

---
 R/BMCPMod.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/BMCPMod.R b/R/BMCPMod.R
index 50a3bf9..abdc170 100644
--- 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)