From a9b72bf9fb90a6e8797240f123dd2b20c159f15d Mon Sep 17 00:00:00 2001 From: Daniel Date: Fri, 30 Jun 2023 12:04:07 +0200 Subject: [PATCH] fix warnings --- R/bayesfactor_parameters.R | 4 +++- R/utils_bayesfactor.R | 2 +- man/bayesfactor_parameters.Rd | 4 +++- vignettes/bayes_factors.Rmd | 11 ++++++++++- 4 files changed, 17 insertions(+), 4 deletions(-) diff --git a/R/bayesfactor_parameters.R b/R/bayesfactor_parameters.R index 1251c83d5..c8889ef1c 100644 --- a/R/bayesfactor_parameters.R +++ b/R/bayesfactor_parameters.R @@ -132,7 +132,9 @@ #' #' # emmGrid objects #' # --------------- -#' group_diff <- pairs(emmeans(stan_model, ~group, data = sleep)) +#' group_diff <- suppressWarnings( +#' pairs(emmeans(stan_model, ~group, data = sleep)) +#' ) #' bayesfactor_parameters(group_diff, prior = stan_model, verbose = FALSE) #' #' # Or diff --git a/R/utils_bayesfactor.R b/R/utils_bayesfactor.R index 1ec903490..af639fee7 100644 --- a/R/utils_bayesfactor.R +++ b/R/utils_bayesfactor.R @@ -106,7 +106,7 @@ insight::format_error(prior) } - prior <- emmeans::ref_grid(prior) + prior <- suppressWarnings(emmeans::ref_grid(prior)) prior <- prior@post.beta if (!isTRUE(all.equal(colnames(prior), colnames(posterior@post.beta)))) { diff --git a/man/bayesfactor_parameters.Rd b/man/bayesfactor_parameters.Rd index b5726ecbf..b30815d5f 100644 --- a/man/bayesfactor_parameters.Rd +++ b/man/bayesfactor_parameters.Rd @@ -278,7 +278,9 @@ if (require("rstanarm") && require("emmeans") && require("logspline")) { # emmGrid objects # --------------- - group_diff <- pairs(emmeans(stan_model, ~group, data = sleep)) + group_diff <- suppressWarnings( + pairs(emmeans(stan_model, ~group, data = sleep)) + ) bayesfactor_parameters(group_diff, prior = stan_model, verbose = FALSE) # Or diff --git a/vignettes/bayes_factors.Rmd b/vignettes/bayes_factors.Rmd index 479475be2..f408b9fc9 100644 --- a/vignettes/bayes_factors.Rmd +++ b/vignettes/bayes_factors.Rmd @@ -1047,9 +1047,18 @@ fit_sum <- stan_glm(Sepal.Length ~ Species, ) ``` -```{r} +```{r eval=FALSE} (pairs_sum <- pairs(emmeans(fit_sum, ~Species))) +ggplot(stack(insight::get_parameters(pairs_sum)), aes(x = values, fill = ind)) + + geom_density(size = 1) + + facet_grid(ind ~ .) + + labs(x = "prior difference values") + + theme(legend.position = "none") +``` +```{r echo=FALSE, warning=FALSE, message=FALSE} +(pairs_sum <- pairs(emmeans(fit_sum, ~Species, data = iris))) + ggplot(stack(insight::get_parameters(pairs_sum)), aes(x = values, fill = ind)) + geom_density(size = 1) + facet_grid(ind ~ .) +