pass ... and other args properly

easystats · Sep 5, 2024 · dad11b3 · dad11b3
1 parent c3a5c51
commit dad11b3
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/describe_posterior.R b/R/describe_posterior.R
@@ -383,11 +383,11 @@ describe_posterior.default <- function(posterior, ...) {
       dot_args <- list(...)
       dot_args$verbose <- !"rope" %in% test
       test_equi <- .prepare_output(
-        equivalence_test(x_df,
-          range = rope_range,
-          ci = rope_ci,
-          dot_args
-        ),
+        do.call(equivalence_test,
+                c(dot_args,
+                  list(x = x_df,
+                       range = rope_range,
+                       ci = rope_ci))),
         cleaned_parameters,
         is_stanmvreg
       )