diff --git a/DESCRIPTION b/DESCRIPTION index 68ac2c4ce..ff1b75dc5 100644 --- a/DESCRIPTION +++ b/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", diff --git a/R/bayesfactor_parameters.R b/R/bayesfactor_parameters.R index 77d98db70..3c597a4ef 100644 --- a/R/bayesfactor_parameters.R +++ b/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 diff --git a/R/si.R b/R/si.R index fd353c52f..1aac876b6 100644 --- a/R/si.R +++ b/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) } diff --git a/R/utils_bayesfactor.R b/R/utils_bayesfactor.R index 9f333c74b..ed58a6673 100644 --- a/R/utils_bayesfactor.R +++ b/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.") diff --git a/man/bayestestR-package.Rd b/man/bayestestR-package.Rd index 0c2e01757..56aac0235 100644 --- a/man/bayestestR-package.Rd +++ b/man/bayestestR-package.Rd @@ -3,7 +3,6 @@ \docType{package} \name{bayestestR-package} \alias{bayestestR-package} -\alias{_PACKAGE} \alias{bayestestR} \title{bayestestR: Describing Effects and their Uncertainty, Existence and Significance within the Bayesian Framework}