reduce example time

Author: jgabry

R/bayesplot-colors.R

@@ -84,11 +84,11 @@
 #' y <- example_y_data()
 #' yrep <- example_yrep_draws()
 #' ppc_stat(y, yrep, stat = "mean") + legend_none()
-#'
+#' \donttest{
 #' color_scheme_set("mix-teal-pink")
 #' ppc_stat(y, yrep, stat = "sd") + legend_none()
 #' mcmc_areas(x, regex_pars = "beta")
-#'
+#' }
 #' ###########################
 #' ### custom color scheme ###
 #' ###########################

R/bayesplot-package.R

@@ -89,9 +89,10 @@
 #' y <- example_y_data()
 #' yrep <- example_yrep_draws()
 #' ppc_dens_overlay(y, yrep[1:50, ])
-#'
+#' \donttest{
 #' color_scheme_set("pink")
 #' ppc_stat(y, yrep, stat = "median") + grid_lines()
 #' ppc_hist(y, yrep[1:8, ])
+#' }
 #'
 NULL

R/mcmc-diagnostics.R

@@ -61,14 +61,15 @@
 #'
 #' color_scheme_set("green")
 #' mcmc_acf(x, pars = c("alpha", "beta[1]"))
+#' \donttest{
 #' color_scheme_set("pink")
 #' (p <- mcmc_acf_bar(x, pars = c("alpha", "beta[1]")))
 #'
 #' # add tick marks on y axis and horiztonal dashed line at 0.5
 #' p +
 #'  yaxis_ticks() +
 #'  hline_at(0.5, linetype = 2, size = 0.15, color = "gray")
-#'
+#' }
 #'
 #' # fake rhat values to use for demonstration
 #' rhat <- c(runif(100, 1, 1.15))

R/mcmc-distributions.R

@@ -56,8 +56,9 @@
 #' # histograms of some parameters
 #' color_scheme_set("pink")
 #' mcmc_hist(x, pars = c("alpha", "beta[2]"))
+#' \donttest{
 #' mcmc_hist(x, pars = "sigma", regex_pars = "beta")
-#'
+#' }
 #' # example of using 'transformations' argument to plot log(sigma),
 #' # and parsing facet labels (e.g. to get greek letters for parameters)
 #' mcmc_hist(x, transformations = list(sigma = "log"),