fence in example

Author: teunbrand

DESCRIPTION

@@ -79,7 +79,7 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Collate: 
     'ggproto.R'
     'ggplot-global.R'

R/stat-qq.R

@@ -35,10 +35,12 @@
 #' # Use fitdistr from MASS to estimate distribution params:
 #' # params <- as.list(MASS::fitdistr(df$y, "t")$estimate)
 #' # Here, we use pre-computed params
-#' params <- list(m = -0.02505057194115, s = 1.122568610124, df = 6.63842653897)
-#' ggplot(df, aes(sample = y)) +
-#'   stat_qq(distribution = qt, dparams = params["df"]) +
-#'   stat_qq_line(distribution = qt, dparams = params["df"])
+#' if (requireNamespace("MASS", quietly = TRUE)) {
+#'   params <- list(m = -0.02505057194115, s = 1.122568610124, df = 6.63842653897)
+#'   ggplot(df, aes(sample = y)) +
+#'     stat_qq(distribution = qt, dparams = params["df"]) +
+#'     stat_qq_line(distribution = qt, dparams = params["df"])
+#' }
 #'
 #' # Using to explore the distribution of a variable
 #' ggplot(mtcars, aes(sample = mpg)) +