suppess a superfluous message

openpharma · Jun 28, 2024 · 7710bbb · 7710bbb
1 parent d08a33b
commit 7710bbb
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/brm_archetype.R b/R/brm_archetype.R
@@ -166,7 +166,12 @@ brm_archetype_attributes <- function(data) {
 #' @export
 summary.brms_mmrm_archetype <- function(object, ...) {
   formula <- brm_formula(object)
-  transform <- brm_transform_marginal(object, formula, prefix = "")
+  transform <- brm_transform_marginal(
+    object,
+    formula,
+    average_within_subgroup = FALSE,
+    prefix = ""
+  )
   transform <- transform[, attr(object, "brm_archetype_interest")]
   marginals <- gsub(brm_sep(), ":", rownames(transform), fixed = TRUE)
   lines <- c(