diff --git a/analysis/GREENGridModel/_reportAreaModel.Rmd b/analysis/GREENGridModel/_reportAreaModel.Rmd
index 7a481b71ac133aa15d59469473a1e2e7e6ef43a6..19f030341d2b3f814a45ad942c9cf2fe14dc9720 100644
--- a/analysis/GREENGridModel/_reportAreaModel.Rmd
+++ b/analysis/GREENGridModel/_reportAreaModel.Rmd
@@ -492,7 +492,11 @@ setkey(ggLightingDT, linkID)
 setkey(ggHhDT, linkID)
 ggLightingDT <- ggHhDT[, .(linkID, Q49_coded, Location)][ggLightingDT]
 
+t <- table(ggHhDT$Q49_coded)
+prop.table(t)*100
+
 t <- table(ggHhDT$Q49_coded, ggHhDT$Location, useNA = "always")
+
 kableExtra::kable(t, caption = "Bulb type distribution (survey data)") %>%
   kable_styling()