fix error in example

Author: jgabry

R/ppc-distributions.R

@@ -65,7 +65,9 @@
 #' color_scheme_set("brightblue")
 #' y <- example_y_data()
 #' yrep <- example_yrep_draws()
+#' group <- example_group_data()
 #' dim(yrep)
+#'
 #' ppc_dens_overlay(y, yrep[1:25, ])
 #' \donttest{
 #' # ppc_ecdf_overlay with continuous data (set discrete=TRUE if discrete data)
@@ -93,7 +95,6 @@
 #' # frequency polygons
 #' ppc_freqpoly(y, yrep[1:3, ], alpha = 0.1, size = 1, binwidth = 5)
 #'
-#' group <- example_group_data()
 #' ppc_freqpoly_grouped(y, yrep[1:3, ], group) + yaxis_text()
 #'
 #' # if groups are different sizes then the 'freq' argument can be useful