if (FALSE) {
bg <- baggr(microcredit_simplified, model = "quantiles",
quantiles = c(0.25, 0.50, 0.75),
iter = 1000, refresh = 0,
outcome = "consumption")
#vanilla plot
plot_quantiles(bg)[[1]]
plot_quantiles(bg, hline = TRUE)[[2]] +
ggplot2::coord_cartesian(ylim = c(-2, 5)) +
ggplot2::ggtitle("Works like a ggplot2 plot!")
}
Run the code above in your browser using DataLab