From f7d085caa3c7f7707cb5462868c90559ed71eec6 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Wed, 10 Apr 2019 15:17:06 +1200
Subject: [PATCH] added quick table for bulb type to check against NZ

---
 analysis/GREENGridModel/_reportAreaModel.Rmd | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/analysis/GREENGridModel/_reportAreaModel.Rmd b/analysis/GREENGridModel/_reportAreaModel.Rmd
index 7a481b7..19f0303 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()
 
-- 
GitLab