edit tables si-test

analysis/paper/.~lock.si_test.docx#

-,jaccard,jaccard-Latitude-E6440,21.01.2021 12:40,file:///home/jaccard/.config/libreoffice/4;
\ No newline at end of file

analysis/paper/si_test.Rmd

@@ -306,8 +306,8 @@ flextable(footprint) %>%
              footprint decomposed by income quintile, through multiplication of 
              EE-MRIO household final demand expenditure per income quintile and 
              sector by the total intensity vector (TIV) calculated in the EE-MRIO 
-             (with only one total intensity per sector).") #%>%
-  #fit_to_width(7.5)
+             (with only one total intensity per sector).") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -340,8 +340,8 @@ flextable(labels) %>%
                     five_sectors = "aggregate consumption category") %>%
   set_caption("Mapping EXIOBASE industry 
              production sectors to COICOP consumption categories and 
-             five aggregate consumption categories") #%>%
-  #fit_to_width(7.5)
+             five aggregate consumption categories") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -561,8 +561,8 @@ flextable(country_year_coverage) %>%
              for those years where EUROSTAT HBS data also exists for that country. 
              Rows with red text show countries where EUROSTAT HBS data exists, 
              but who are not represented individually in EXIOBASE (they are in 
-             'rest-of-world' categories)") #%>%
-  #fit_to_width(7.5)
+             'rest-of-world' categories)") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -646,8 +646,8 @@ flextable(hbs_bp_pps) %>%
                     pps_hh_sector2_bp = "s2 (pps hh bp)") %>%
   set_caption("Same as Table S1 but now 
              with base price shares of purchaser price per sector, and 
-             sectoral expenditure per quintile in pps hh base price.") #%>%
-  #fit_to_width(7.5)
+             sectoral expenditure per quintile in pps hh base price.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -692,8 +692,8 @@ flextable(hbs_bp_shares) %>%
                     pm_sector2_bp = "s2 (pm bp)") %>%
   set_caption("Quintile shares per sector 
              in base price, with new 'pps hh' per quintile in base price and 
-             new sectoral pm values in base price.") #%>%
-  #fit_to_width(7.5)
+             new sectoral pm values in base price.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -751,8 +751,8 @@ flextable(eemrio_bp) %>%
                     q3_eemrio = "q3 fd",
                     q4_eemrio = "q4 fd",
                     q5_eemrio = "q5 fd") %>%
-  set_caption("Identical to Table 2.") #%>%
-  #fit_to_width(7.5)
+  set_caption("Identical to Table 2.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -840,8 +840,8 @@ flextable(hbs_bp_pps) %>%
                     pps_hh_sector2_bp = "s2 (pps hh bp)") %>%
   set_caption("Same as Table S1 but now 
              with base price shares of purchaser price per sector, and 
-             sectoral expenditure per income quintile in pps hh base price.") #%>%                   
-  #fit_to_width(7.5)
+             sectoral expenditure per income quintile in pps hh base price.") %>%                   
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -880,8 +880,8 @@ flextable(hbs_bp_shares) %>%
   set_caption("Income quintile shares per sector 
              in base price, with new 'pps hh' per income quintile in base price and 
              new sectoral pm values in base price ('pps hh bp' is the sum of 
-             's1 (pps hh bp)' and 's2 (pps hh bp)').") #%>%
-  #fit_to_width(7.5)
+             's1 (pps hh bp)' and 's2 (pps hh bp)').") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -945,8 +945,8 @@ flextable(hbs_alt_method_fd) %>%
                     hh_sector2 = "hh fd s2") %>%
   set_caption("Same as Table S9 but 
              with total EE-MRIO household final demand in purchaser price 
-             instead of base price.") #%>%
-  #fit_to_width(7.5)
+             instead of base price.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -982,8 +982,8 @@ flextable(eemrio_alt_method) %>%
                     q4 = "q4 fd",
                     q5 = "q5 fd") %>%
   set_caption("EE-MRIO 
-             household final demand per quintile and sector.") #%>%
-  #fit_to_width(7.5)
+             household final demand per quintile and sector.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```
 
@@ -1038,8 +1038,8 @@ flextable(footprint_alt_method) %>%
                     q5_footprint = "q5 fp") %>%
   set_caption("EE-MRIO household 
              final demand per quintile and sector multiplied by the TIV to 
-             calculate footprint per quintile and sector.") #%>%
-  #fit_to_width(7.5)
+             calculate footprint per quintile and sector.") %>%
+  fit_to_width(max_width = 7.5)
 
 ```