edit si

analysis/paper/si.Rmd

@@ -804,7 +804,7 @@ flextable(footprint_alt_method) %>%
 
 ```{r load-data, include=FALSE}
 # load data wrangling functions
-source(here("analysis", "r", "wrangler_functions.R"))
+source(here("analysis", "R", "wrangler_functions.R"))
 
 ## load result data for EU deciles
 eu_q_count = 10
@@ -1308,7 +1308,7 @@ ggsave(here("analysis", "figures", "figureS2.pdf"), device=cairo_pdf)
 
 ```{r load-data2, include=FALSE}
 # load data wrangling functions
-source(here("analysis", "r", "si", "wrangler_functions_pxp.R"))
+source(here("analysis", "R", "si", "wrangler_functions_pxp.R"))
 
 ## load result data for EU deciles
 eu_q_count = 10
@@ -1582,7 +1582,7 @@ There is relatively good agreement between the alternative method footprints and
 
 ```{r load-data3, include=FALSE}
 # load data wrangling functions
-source(here("analysis", "r", "si", "wrangler_functions_method2_ixi.R"))
+source(here("analysis", "R", "si", "wrangler_functions_method2_ixi.R"))
 
 ## load result data for EU deciles
 eu_q_count = 10