#641

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: bayestestR
 Title: Understand and Describe Bayesian Models and Posterior Distributions
-Version: 0.13.1.8
+Version: 0.13.1.9
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

R/bayesfactor_parameters.R

@@ -297,9 +297,8 @@ bayesfactor_parameters.stanreg <- function(posterior,
   component <- match.arg(component)
 
   samps <- .clean_priors_and_posteriors(posterior, prior,
-    verbose = verbose,
     effects = effects, component = component,
-    parameters = parameters
+    parameters = parameters, verbose = verbose
   )
 
   # Get BFs

R/si.R

@@ -126,9 +126,8 @@ si.stanreg <- function(posterior, prior = NULL,
   component <- match.arg(component)
 
   samps <- .clean_priors_and_posteriors(posterior, prior,
-    verbose = verbose,
     effects = effects, component = component,
-    parameters = parameters
+    parameters = parameters, verbose = verbose
   )
 
   # Get SIs
@@ -318,7 +317,7 @@ si.rvar <- si.draws
   x_supported <- stats::na.omit(x_axis[crit])
   if (length(x_supported) < 2) {
     return(c(NA, NA))
-  } else {
-    range(x_supported)
   }
+
+  range(x_supported)
 }

R/utils_bayesfactor.R

@@ -1,15 +1,16 @@
 # clean priors and posteriors ---------------------------------------------
 
 #' @keywords internal
-.clean_priors_and_posteriors <- function(posterior, prior,
-                                         verbose = TRUE, ...) {
+.clean_priors_and_posteriors <- function(posterior, prior, ...) {
   UseMethod(".clean_priors_and_posteriors")
 }
 
 #' @keywords internal
 .clean_priors_and_posteriors.stanreg <- function(posterior, prior,
+                                                 effects, component,
+                                                 parameters = NULL,
                                                  verbose = TRUE,
-                                                 effects, component, ...) {
+                                                 ...) {
   # Get Priors
   if (is.null(prior)) {
     prior <- posterior
@@ -65,7 +66,8 @@
 #' @keywords internal
 .clean_priors_and_posteriors.emmGrid <- function(posterior,
                                                  prior,
-                                                 verbose = TRUE) {
+                                                 verbose = TRUE,
+                                                 ...) {
   insight::check_if_installed("emmeans")
 
   if (is.null(prior)) {
@@ -126,7 +128,7 @@
 }
 
 .clean_priors_and_posteriors.emm_list <- function(posterior, prior,
-                                                  verbose = TRUE) {
+                                                  verbose = TRUE, ...) {
   if (is.null(prior)) {
     prior <- posterior
     insight::format_warning("Prior not specified! Please provide the original model to get meaningful results.")