library(here)
library(ggplot2)
source(here("04-topics/rep-chv2011/Rcode/chv2011-figures.R"))
fig_plot <- chv2011_fig_normal_mte()
chv2011_save_figure(fig_plot, "Figure_1")