edit si

analysis/paper/si.Rmd

@@ -580,7 +580,7 @@ flextable(hbs_bp_shares) %>%
 
 If we now do the same as in Table S3, joining these income quintile shares per sector to the EE-MRIO by sector, and multiplying them by the EE-MRIO household final demand expenditure per sector to stratify it by income quintile, we end up with the same stratification which will result in the same stratified footprint as before. 
 
-```{r tableS8, tab.cap = "***Table S8: Identical to Table 2.***"}
+```{r tableS8, tab.cap = "***Table S8: Identical to Table S2.***"}
 
 q_share_of_sector_bp = hbs_bp_shares %>%
   select(quintile,pps_hh_sector1_bp,pps_hh_sector2_bp) %>%