try emmeans dev

DESCRIPTION

@@ -125,3 +125,4 @@ Config/Needs/website:
     rstudio/bslib,
     r-lib/pkgdown,
     easystats/easystatstemplate
+Remotes: rvlenth/emmeans

R/bayesfactor_parameters.R

@@ -132,9 +132,7 @@
 #'
 #'   # emmGrid objects
 #'   # ---------------
-#'   group_diff <- suppressWarnings(
-#'     pairs(emmeans(stan_model, ~group, data = sleep))
-#'   )
+#'   group_diff <- pairs(emmeans(stan_model, ~group, data = sleep))
 #'   bayesfactor_parameters(group_diff, prior = stan_model, verbose = FALSE)
 #'
 #'   # Or

R/bayesfactor_restricted.R

@@ -94,9 +94,7 @@
 #' contrasts(disgust$condition) <- contr.equalprior_pairs # see vignette
 #' fit_model <- rstanarm::stan_glm(score ~ condition, data = disgust, family = gaussian())
 #'
-#' em_condition <- suppressWarnings(
-#'   emmeans::emmeans(fit_model, ~condition, data = disgust)
-#' )
+#' em_condition <- emmeans::emmeans(fit_model, ~condition, data = disgust)
 #' hyps <- c("lemon < control & control < sulfur")
 #'
 #' bayesfactor_restricted(em_condition, prior = fit_model, hypothesis = hyps)

R/ci.R

@@ -58,7 +58,7 @@
 #' ci(bf, method = "HDI")
 #'
 #' @examplesIf require("emmeans", quietly = TRUE) && require("rstanarm", quietly = TRUE)
-#' model <- suppressWarnings(emtrends(model, ~1, "wt", data = mtcars))
+#' model <- emtrends(model, ~1, "wt", data = mtcars)
 #' ci(model, method = "ETI")
 #' ci(model, method = "HDI")
 #' @export

R/rope.R

@@ -92,7 +92,9 @@
 #' rope(x = rnorm(1000, 1, 1), ci = c(.90, .95))
 #' \dontrun{
 #' library(rstanarm)
-#' model <- stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200, refresh = 0)
+#' model <- suppressWarnings(
+#'   stan_glm(mpg ~ wt + gear, data = mtcars, chains = 2, iter = 200, refresh = 0)
+#' )
 #' rope(model)
 #' rope(model, ci = c(.90, .95))
 #'