add some ppd stat examples

Author: tjmahr

R/ppc-test-statistics.R

@@ -88,6 +88,7 @@
 #' color_scheme_set("brewer-Paired")
 #' ppc_stat_2d(y, yrep, stat = c("median", "mad"))
 #'
+#' # reset aesthetics
 #' color_scheme_set()
 #' bayesplot_theme_set()
 #'

R/ppd-test-statistics.R

@@ -18,7 +18,15 @@
 #' @template return-ggplot-or-data
 #'
 #' @template reference-vis-paper
+#' @examples
+#' yrep <- example_yrep_draws()
+#' ppd_stat(yrep)
+#' ppd_stat(yrep, stat = "sd") + legend_none()
 #'
+#' # use your own function for the 'stat' argument
+#' color_scheme_set("brightblue")
+#' q25 <- function(y) quantile(y, 0.25)
+#' ppd_stat(yrep, stat = "q25") # legend includes function name
 NULL
 
 #' @rdname PPD-test-statistics