diff --git a/R/r2_bayes.R b/R/r2_bayes.R index c565832c9..1c8b5c4fa 100644 --- a/R/r2_bayes.R +++ b/R/r2_bayes.R @@ -75,10 +75,20 @@ #' #' \dontrun{ #' if (require("brms")) { -#' model <- brms::brm(mpg ~ wt + cyl, data = mtcars) +#' model <- suppressWarnings(brms::brm( +#' mpg ~ wt + cyl, +#' data = mtcars, +#' silent = 2, +#' refresh = 0 +#' )) #' r2_bayes(model) #' -#' model <- brms::brm(Petal.Length ~ Petal.Width + (1 | Species), data = iris) +#' model <- suppressWarnings(brms::brm( +#' Petal.Length ~ Petal.Width + (1 | Species), +#' data = iris, +#' silent = 2, +#' refresh = 0 +#' )) #' r2_bayes(model) #' } #' } diff --git a/man/r2_bayes.Rd b/man/r2_bayes.Rd index 387202ca9..1370bafda 100644 --- a/man/r2_bayes.Rd +++ b/man/r2_bayes.Rd @@ -106,10 +106,20 @@ if (require("BayesFactor")) { \dontrun{ if (require("brms")) { - model <- brms::brm(mpg ~ wt + cyl, data = mtcars) + model <- suppressWarnings(brms::brm( + mpg ~ wt + cyl, + data = mtcars, + silent = 2, + refresh = 0 + )) r2_bayes(model) - model <- brms::brm(Petal.Length ~ Petal.Width + (1 | Species), data = iris) + model <- suppressWarnings(brms::brm( + Petal.Length ~ Petal.Width + (1 | Species), + data = iris, + silent = 2, + refresh = 0 + )) r2_bayes(model) } }