From 5531b13dfcb97a06926f84247a60478714811c51 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Tue, 3 Nov 2020 15:38:11 +0000
Subject: [PATCH] added stub for n EPC estimates
---
EPCsAndCarbon/carbonCosts.Rmd | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/EPCsAndCarbon/carbonCosts.Rmd b/EPCsAndCarbon/carbonCosts.Rmd
index e4d9581..e2f804b 100644
--- a/EPCsAndCarbon/carbonCosts.Rmd
+++ b/EPCsAndCarbon/carbonCosts.Rmd
@@ -172,18 +172,20 @@ sotonEpcMSOA_DT <- sotonPostcodesDT[, .(nEPCs = .N,
]
```
-```{r, compareEstimates}
+Join the estimates together at MSOA level for comparison. There are `r uniqueN(sotonElecDT$MSOACode)` MSOAs in Southampton.
+```{r, compareEpcEstimates}
+# 32 LSOAs in Soton
# add deprivation
setkey(sotonElecDT, MSOACode)
setkey(deprivationDT,MSOACode)
-setkey(sotonMSOA_DT,MSOACode)
sotonMSOA_DT <- deprivationDT[sotonElecDT]
sotonMSOA_DT <- sotonDep_DT[sotonMSOA_DT]
t <- sotonMSOA_DT[, .(nHouseholds2011 = sum(totalHouseholds),
nElecMeters2018 = sum(METERS),
+ nEPCs = sum(),
sumMWh = sum(KWH)/1000)]
kableExtra::kable(t, caption = "Comparison of different estimates of the number of dwellings")
--
GitLab