diff --git a/R/bayesfactor_restricted.R b/R/bayesfactor_restricted.R index 454d9adff..c23263d27 100644 --- 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 index ed58a6673..16ac9a3af 100644 --- 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,