diff --git a/R/diagnostic_draws.R b/R/diagnostic_draws.R index 3086c3b8d..a8f46478c 100644 --- a/R/diagnostic_draws.R +++ b/R/diagnostic_draws.R @@ -8,11 +8,11 @@ #' set.seed(333) #' #' if (require("brms", quietly = TRUE)) { -#' model <- brm(mpg ~ wt * cyl * vs, +#' model <- suppressWarning(brm(mpg ~ wt * cyl * vs, #' data = mtcars, #' iter = 100, control = list(adapt_delta = 0.80), #' refresh = 0 -#' ) +#' )) #' diagnostic_draws(model) #' } #' } diff --git a/man/diagnostic_draws.Rd b/man/diagnostic_draws.Rd index de38f2d10..b29bf42ff 100644 --- a/man/diagnostic_draws.Rd +++ b/man/diagnostic_draws.Rd @@ -19,11 +19,11 @@ Returns the accumulated log-posterior, the average Metropolis acceptance rate, d set.seed(333) if (require("brms", quietly = TRUE)) { - model <- brm(mpg ~ wt * cyl * vs, + model <- suppressWarning(brm(mpg ~ wt * cyl * vs, data = mtcars, iter = 100, control = list(adapt_delta = 0.80), refresh = 0 - ) + )) diagnostic_draws(model) } } diff --git a/vignettes/bayes_factors.Rmd b/vignettes/bayes_factors.Rmd index 5cb86fd63..335986026 100644 --- a/vignettes/bayes_factors.Rmd +++ b/vignettes/bayes_factors.Rmd @@ -1121,7 +1121,7 @@ ggplot(stack(insight::get_parameters(pairs_bayes)), aes(x = values, fill = ind)) theme(legend.position = "none") ``` ```{r echo=FALSE, warning=FALSE, message=FALSE} -(pairs_bayes <- pairs(emmeans(fit_bayes, ~Species, data = iris))) +(pairs_bayes <- suppressWarnings(pairs(emmeans(fit_bayes, ~Species, data = iris)))) ggplot(stack(insight::get_parameters(pairs_bayes)), aes(x = values, fill = ind)) + geom_density(linewidth = 1) +