Move some args into ...

#641
easystats · Feb 6, 2024 · 85dbf30 · 85dbf30
1 parent d29b70c
commit 85dbf30
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/R/bayesfactor_restricted.R b/R/bayesfactor_restricted.R
@@ -136,8 +136,8 @@ bayesfactor_restricted.stanreg <- function(posterior, hypothesis, prior = NULL,
   component <- match.arg(component)
 
   samps <- .clean_priors_and_posteriors(posterior, prior,
-    effects, component,
-    verbose = verbose
+    effects = effects, component = component,
+    parameters = parameters, verbose = verbose
   )
 
   # Get savage-dickey BFs

diff --git a/R/utils_bayesfactor.R b/R/utils_bayesfactor.R
@@ -7,8 +7,6 @@
 
 #' @keywords internal
 .clean_priors_and_posteriors.stanreg <- function(posterior, prior,
-                                                 effects, component,
-                                                 parameters = NULL,
                                                  verbose = TRUE,
                                                  ...) {
   # Get Priors
@@ -30,8 +28,8 @@
     insight::format_error(prior)
   }
 
-  prior <- insight::get_parameters(prior, effects = effects, component = component, ...)
-  posterior <- insight::get_parameters(posterior, effects = effects, component = component, ...)
+  prior <- insight::get_parameters(prior, ...)
+  posterior <- insight::get_parameters(posterior, ...)
 
   list(
     posterior = posterior,