corrected space_cooling heat

R/calcFEbyEUEC.R

@@ -85,6 +85,12 @@ calcFEbyEUEC <- function() {
     semi_join(sharesEU, by = c("period"))
 
 
+  # remove district space cooling from disaggregation
+  exclude <- exclude %>%
+    mutate(enduse = "space_cooling",
+           carrier = "heat")
+
+
   #--- Prepare toolDisaggregate Input
 
   # combine the already disaggregated data
@@ -168,6 +174,22 @@ calcFEbyEUEC <- function() {
                       select(-"regionAgg"))
 
 
+  # Since the data on district cooling is very sparse and the low global penetration
+  # of the technology, we assume that all historic cooling demand is covered by
+  # electricity but assume that district cooling might play a more significant role
+  # in the future.
+
+  dataCorr <- dataFull %>%
+    select(-"enduse", -"carrier", -"value") %>%
+    unique() %>%
+    mutate(enduse = "space_cooling",
+           carrier = "heat",
+           value = 0)
+
+  dataFull <- rbind(dataCorr, dataFull)
+
+
+
 
   # OUTPUT ---------------------------------------------------------------------