library(here)
source(here("04-topics/rep-chv2011/Rcode/chv2011-figures.R"))
fig_plot <- chv2011_fig_mte(title = "Figure 2 — Semiparametric MTE")
chv2011_save_figure(fig_plot, "Figure_2")