fix warnings

easystats · Jun 30, 2023 · a9b72bf · a9b72bf
1 parent 822ce87
commit a9b72bf
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 4 deletions.
diff --git 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
@@ -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
diff --git 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 ~ .) +