diff --git a/R/ggcoef_model.R b/R/ggcoef_model.R
index b99d854..1a70b84 100644
--- a/R/ggcoef_model.R
+++ b/R/ggcoef_model.R
@@ -28,7 +28,6 @@
 #' @return A `ggplot2` plot or a `tibble` if `return_data = TRUE`.
 #' @export
 #' @examples
-#' library(ggplot2)
 #' mod <- lm(Sepal.Length ~ Sepal.Width + Species, data = iris)
 #' ggcoef_model(mod)
 #'
@@ -82,24 +81,6 @@
 #'     "{ifelse(dichotomous, paste0(level, ' / ', reference_level), level)}",
 #'   show_p_values = FALSE
 #' )
-#'
-#' # works also with with polynomial terms
-#' mod_poly <- lm(
-#'   tip ~ poly(total_bill, 3) + day,
-#'   data = tips,
-#' )
-#' ggcoef_model(mod_poly)
-#'
-#' # or with different type of contrasts
-#' # for sum contrasts, the value of the reference term is computed
-#' if (requireNamespace("emmeans")) {
-#'  mod2 <- lm(
-#'    tip ~ day + time + sex,
-#'    data = tips,
-#'    contrasts = list(time = contr.sum, day = contr.treatment(4, base = 3))
-#'   )
-#'   ggcoef_model(mod2)
-#' }
 #' }
 #' @examplesIf requireNamespace("reshape")
 #'
@@ -144,7 +125,26 @@
 #'
 #' # do not display variable facets but add colour guide
 #' ggcoef_model(mod_simple, facet_row = NULL, colour_guide = TRUE)
+#'
+#' # works also with with polynomial terms
+#' mod_poly <- lm(
+#'   tip ~ poly(total_bill, 3) + day,
+#'   data = tips,
+#' )
+#' ggcoef_model(mod_poly)
+#'
+#' # or with different type of contrasts
+#' # for sum contrasts, the value of the reference term is computed
+#' if (requireNamespace("emmeans")) {
+#'  mod2 <- lm(
+#'    tip ~ day + time + sex,
+#'    data = tips,
+#'    contrasts = list(time = contr.sum, day = contr.treatment(4, base = 3))
+#'   )
+#'   ggcoef_model(mod2)
 #' }
+#' }
+#'
 ggcoef_model <- function(
   model,
   tidy_fun = broom.helpers::tidy_with_broom_or_parameters,
diff --git a/man/ggcoef_model.Rd b/man/ggcoef_model.Rd
index 60050fb..5f20649 100644
--- a/man/ggcoef_model.Rd
+++ b/man/ggcoef_model.Rd
@@ -255,7 +255,6 @@ multinomial logistic regressions performed with \code{\link[nnet:multinom]{nnet:
 
 }}
 \examples{
-library(ggplot2)
 mod <- lm(Sepal.Length ~ Sepal.Width + Species, data = iris)
 ggcoef_model(mod)
 
@@ -309,24 +308,6 @@ ggcoef_model(
     "{ifelse(dichotomous, paste0(level, ' / ', reference_level), level)}",
   show_p_values = FALSE
 )
-
-# works also with with polynomial terms
-mod_poly <- lm(
-  tip ~ poly(total_bill, 3) + day,
-  data = tips,
-)
-ggcoef_model(mod_poly)
-
-# or with different type of contrasts
-# for sum contrasts, the value of the reference term is computed
-if (requireNamespace("emmeans")) {
- mod2 <- lm(
-   tip ~ day + time + sex,
-   data = tips,
-   contrasts = list(time = contr.sum, day = contr.treatment(4, base = 3))
-  )
-  ggcoef_model(mod2)
-}
 }
 \dontshow{if (requireNamespace("reshape")) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 
@@ -371,6 +352,24 @@ ggcoef_model(
 
 # do not display variable facets but add colour guide
 ggcoef_model(mod_simple, facet_row = NULL, colour_guide = TRUE)
+
+# works also with with polynomial terms
+mod_poly <- lm(
+  tip ~ poly(total_bill, 3) + day,
+  data = tips,
+)
+ggcoef_model(mod_poly)
+
+# or with different type of contrasts
+# for sum contrasts, the value of the reference term is computed
+if (requireNamespace("emmeans")) {
+ mod2 <- lm(
+   tip ~ day + time + sex,
+   data = tips,
+   contrasts = list(time = contr.sum, day = contr.treatment(4, base = 3))
+  )
+  ggcoef_model(mod2)
+}
 }
 \dontshow{\}) # examplesIf}