diff --git a/analysis/figures/figureS1-test.pdf b/analysis/figures/figureS1-test.pdf
index 40f61edc84abb2ceff31000fd4f4d165a7e976b4..bcb980bfb8d13daa1afa2c879577cdcbf113ca10 100644
Binary files a/analysis/figures/figureS1-test.pdf and b/analysis/figures/figureS1-test.pdf differ
diff --git a/analysis/figures/figureS2-test.pdf b/analysis/figures/figureS2-test.pdf
index 2d392ff45ceeccf113dca282ef3b07df6b3b9126..3b031e8090bc87ef721ea3df8862f9e971913149 100644
Binary files a/analysis/figures/figureS2-test.pdf and b/analysis/figures/figureS2-test.pdf differ
diff --git a/analysis/figures/figureS3-test.pdf b/analysis/figures/figureS3-test.pdf
index 078ec51606500dbe5f27a2030e90ac945683173e..4c81f5f97697b98333b5e24fabe0030f090eb729 100644
Binary files a/analysis/figures/figureS3-test.pdf and b/analysis/figures/figureS3-test.pdf differ
diff --git a/analysis/figures/figureS4-test.pdf b/analysis/figures/figureS4-test.pdf
index cbd86411ce8174c80a049fa2bf6830c482b89aaa..74a1d576ac79fda099184743c27016201aedc0f5 100644
Binary files a/analysis/figures/figureS4-test.pdf and b/analysis/figures/figureS4-test.pdf differ
diff --git a/analysis/paper/.~lock.si_test.docx# b/analysis/paper/.~lock.si_test.docx#
deleted file mode 100644
index 31c8bb274c57b2d4f31d2cd861331065035953ea..0000000000000000000000000000000000000000
--- a/analysis/paper/.~lock.si_test.docx#
+++ /dev/null
@@ -1 +0,0 @@
-,jaccard,jaccard-Latitude-E6440,19.01.2021 07:36,file:///home/jaccard/.config/libreoffice/4;
\ No newline at end of file
diff --git a/analysis/paper/si_test.Rmd b/analysis/paper/si_test.Rmd
index 2cacc336b0a5076b598bd10a1c51d4b3ed2d09c8..b4b780b576f8a344b6d848aad68aa72541671d08 100644
--- a/analysis/paper/si_test.Rmd
+++ b/analysis/paper/si_test.Rmd
@@ -34,7 +34,8 @@ pacman::p_load(tidyverse,
                glue,
                ggridges,
                patchwork,
-               kableExtra)
+               kableExtra,
+               flextable)
 
 pal <- wes_palette("Cavalcanti1", 5, type = "discrete")
 extrafont::loadfonts()
@@ -148,18 +149,22 @@ hbs = data.frame(quintile, pps_hh, pm_sector1, pm_sector2) %>%
          pps_hh_sector2 = pps_hh*(pm_sector2/1000),
          sector_2_shares = pps_hh_sector2/sum(pps_hh_sector2))
 
-knitr::kable(hbs, caption = "Table S1: HBS structure with calculations of quintile shares per sector.", 
-             escape = F, 
-             booktabs = TRUE,
-             col.names = c("quintile",
-                           "pps hh", 
-                           "s1 (pm)", 
-                           "s2 (pm)",
-                           "s1 (pps hh)",
-                           "s1 (q share)",
-                           "s2 (pps hh)",
-                           "s2 (q share)")) %>%
-  kable_styling(latex_options = "HOLD_position")
+#knitr::kable(hbs, caption = "Table S1: HBS structure with calculations of quintile shares per sector.", 
+#             escape = F, 
+#             booktabs = TRUE,
+#             col.names = c("quintile",
+#                           "pps hh", 
+#                           "s1 (pm)", 
+#                           "s2 (pm)",
+#                           "s1 (pps hh)",
+#                           "s1 (q share)",
+#                           "s2 (pps hh)",
+#                           "s2 (q share)")) %>%
+#  kable_styling(latex_options = "HOLD_position")
+
+regulartable(hbs) %>%
+  autofit() %>%
+  fit_to_width(7.5)
                             
 ```
 
diff --git a/analysis/paper/si_test.docx b/analysis/paper/si_test.docx
index 1d0374778dd3c14ac1f37fcbf52531c888bbde44..9f2397e70ad6090f76975e44048682eeb860be96 100644
Binary files a/analysis/paper/si_test.docx and b/analysis/paper/si_test.docx differ