edit full code

analysis/preprocessing/full_code.Rmd

@@ -3283,7 +3283,7 @@ for (i in years_exb_pxp){
   Eurostat_countries = cbind(AT,BE,BG,CY,CZ,DE,DK,EE,EL,ES,FI,FR,HR,HU,IE,IT,LT,LU,LV,MT,NL,NO,PL,PT,RO,SE,SI,SK,TR,UK)
   
   ## read in EXIOBASE production sector labels written and saved in previous code chunk
-  Exiobase_T_labels = read.csv(paste0(data_dir_income_stratified_footprints, "/data/Exiobase_T_labels_pxp_w_coicop_mapping.csv")) %>%
+  Exiobase_T_labels = read.csv(paste0(data_dir_income_stratified_footprints, "/Exiobase_T_labels_pxp_w_coicop_mapping.csv")) %>%
     mutate(V1 = dplyr::recode(V1,"GR" = "EL","GB" = "UK")) 
   
   ## bind EXIOBASE hh final demand with production sector labels