Update plot-3-panel.r

added output dataframes to csv files.

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,