fixed bug in summary.bcsmd() when applied to a Bayes-bcsmd object.

jepusto · Feb 21, 2024 · 1148848 · 1148848
1 parent 5c7f341
commit 1148848
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/calc_BCSMD.R b/R/calc_BCSMD.R
@@ -726,8 +726,14 @@ calc_BCSMD <- function(design,
 
 summary.bcsmd <- function(object, digits = 3, ...) {
 
-  converged <- if (inherits(object, "Bayes-bcsmd")) NA_character_ else if (isTRUE(object$converged)) "Yes" else "No"
-
+  if (inherits(object, "Bayes-bcsmd")) {
+    converged <- NA_character_ 
+    object$A <- NA_integer_
+    object$B <- NA_integer_
+  } else {
+    converged <- if (isTRUE(object$converged)) "Yes" else "No"
+  }
+
   ES_summary <- data.frame(
     ES = object$g_AB,
     SE = object$SE_g_AB,