skip examples

R/get_emcontrasts.R

@@ -4,6 +4,7 @@
 #' model <- lm(Sepal.Width ~ Species, data = iris)
 #' get_emcontrasts(model)
 #'
+#' \dontrun{
 #' # Dealing with interactions
 #' model <- lm(Sepal.Width ~ Species * Petal.Width, data = iris)
 #' # By default: selects first factor
@@ -16,6 +17,7 @@
 #' estimate_contrasts(model, contrast = c("Species", "Petal.Width=c(1, 2)"))
 #' # Or modulate it
 #' get_emcontrasts(model, by = "Petal.Width", length = 4)
+#' }
 #' @export
 get_emcontrasts <- function(model,
                             contrast = NULL,

R/get_emmeans.R

@@ -19,13 +19,13 @@
 #' # By default, 'by' is set to "Species"
 #' get_emmeans(model)
 #'
+#' \dontrun{
 #' # Overall mean (close to 'mean(iris$Sepal.Length)')
 #' get_emmeans(model, by = NULL)
 #'
 #' # One can estimate marginal means at several values of a 'modulate' variable
 #' get_emmeans(model, by = "Petal.Width", length = 3)
 #'
-#' \dontrun{
 #' # Interactions
 #' model <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
 #'

R/get_emtrends.R

@@ -1,11 +1,13 @@
 #' @rdname get_emmeans
 #' @examplesIf insight::check_if_installed("emmeans", quietly = TRUE)
+#' \dontrun{
 #' model <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
 #'
 #' get_emtrends(model)
 #' get_emtrends(model, by = "Species")
 #' get_emtrends(model, by = "Petal.Length")
 #' get_emtrends(model, by = c("Species", "Petal.Length"))
+#' }
 #'
 #' model <- lm(Petal.Length ~ poly(Sepal.Width, 4), data = iris)
 #' get_emtrends(model)

R/get_marginalmeans.R

@@ -9,6 +9,7 @@
 #' # Overall mean (close to 'mean(iris$Sepal.Length)')
 #' get_marginalmeans(model, by = NULL)
 #'
+#' \dontrun{
 #' # One can estimate marginal means at several values of a 'modulate' variable
 #' get_marginalmeans(model, by = "Petal.Width", length = 3)
 #'
@@ -18,6 +19,7 @@
 #' get_marginalmeans(model)
 #' get_marginalmeans(model, by = c("Species", "Petal.Length"), length = 2)
 #' get_marginalmeans(model, by = c("Species", "Petal.Length = c(1, 3, 5)"), length = 2)
+#' }
 #' @export
 get_marginalmeans <- function(model,
                               by = "auto",