library(here)
source(here("04-topics/rep-chv2011/Rcode/chv2011-figures.R"))
fig_plot <- chv2011_fig_weights() +
  labs(title = "Figure 7 — MPRTE weights (duplicate of Fig. 5 layout)")
chv2011_save_figure(fig_plot, "Figure_7")