diff --git a/plot-3-panel.r b/plot-3-panel.r
index 841cc4d..c6e220d 100644
--- a/plot-3-panel.r
+++ b/plot-3-panel.r
@@ -104,6 +104,8 @@ make_three_pannel_plot <- function(){
                                "rt_min2" = rt_li2,
                                "rt_max2" = rt_ui2)
     
+    write.csv(data_country, paste0("results/", "base-plot-", country, ".csv"))
+    write.csv(covariates_country_long, paste0("results/", "base-intervention-", country, ".csv"))
     make_plots(data_country = data_country, 
                covariates_country_long = covariates_country_long,
                filename2 = filename2,