PPC Calibration plots

DESCRIPTION

@@ -47,13 +47,16 @@ Imports:
     tidyselect,
     utils
 Suggests:
+    brms,
     cmdstanr,
     ggdist,
     ggfortify,
     gridExtra (>= 2.2.1),
     hexbin,
     knitr (>= 1.16),
     loo (>= 2.0.0),
+    monotone,
+    patchwork,
     RColorBrewer,
     rmarkdown (>= 1.0.0),
     rstan (>= 2.17.1),

NAMESPACE

@@ -121,6 +121,13 @@ export(ppc_bars)
 export(ppc_bars_data)
 export(ppc_bars_grouped)
 export(ppc_boxplot)
+export(ppc_calibration)
+export(ppc_calibration_data)
+export(ppc_calibration_grouped)
+export(ppc_calibration_interval_data)
+export(ppc_calibration_interval_data_grouped)
+export(ppc_calibration_overlay)
+export(ppc_calibration_overlay_grouped)
 export(ppc_data)
 export(ppc_dens)
 export(ppc_dens_overlay)
@@ -144,6 +151,8 @@ export(ppc_intervals_data)
 export(ppc_intervals_grouped)
 export(ppc_km_overlay)
 export(ppc_km_overlay_grouped)
+export(ppc_loo_calibration)
+export(ppc_loo_calibration_grouped)
 export(ppc_loo_intervals)
 export(ppc_loo_pit)
 export(ppc_loo_pit_data)

R/bayesplot-ggplot-themes.R

@@ -180,3 +180,14 @@ bayesplot_theme_replace <- function(...) {
 .bayesplot_theme_env$current <- theme_default()
 .bayesplot_theme_env$gg_current <- ggplot2::theme_grey()
 
+.theme_text_size <- function(theme = bayesplot_theme_get()) {
+  el <- ggplot2::calc_element("text", theme)
+  size <- el$size
+  if (is.null(size) && isS4(el)) {
+    size <- el@size
+  }
+  if (!is.numeric(size) || length(size) != 1 || is.na(size)) {
+    size <- 12
+  }
+  size
+}