update ppc-discrete examples

Author: jgabry

R/ppc-discrete.R

@@ -74,7 +74,12 @@
 #' dim(yrep)
 #' group <- gl(2, 50, length = 100, labels = c("GroupA", "GroupB"))
 #'
+#' color_scheme_set("mix-pink-blue")
 #' ppc_bars(y, yrep)
+#'
+#' # split by group, change interval width, and display proportion
+#' # instead of count on y-axis
+#' color_scheme_set("mix-blue-pink")
 #' ppc_bars_grouped(y, yrep, group, prob = 0.5, freq = FALSE)
 #'
 NULL
@@ -174,7 +179,10 @@ ppc_bars_grouped <-
 #' y <- rpois(100, 20)
 #' yrep <- matrix(rpois(10000, 20), ncol = 100)
 #'
+#' color_scheme_set("brightblue")
 #' ppc_rootogram(y, yrep)
+#' ppc_rootogram(y, yrep, prob = 0)
+#'
 #' ppc_rootogram(y, yrep, style = "hanging", prob = 0.8)
 #' ppc_rootogram(y, yrep, style = "suspended")
 #'
@@ -264,7 +272,7 @@ ppc_rootogram <- function(y,
 
   graph +
     theme_default() +
-    no_legend_spacing()
+    theme(legend.spacing.y = unit(-0.25, "cm"))
 }