clean formula

pik-piam · Aug 11, 2023 · 9a18b8f · 9a18b8f
1 parent b226aa9
commit 9a18b8f
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/R/reportCrossVariables.R b/R/reportCrossVariables.R
@@ -213,9 +213,16 @@ reportCrossVariables <- function(gdx, output = NULL, regionSubsetList = NULL,
       "Welfare|per capita|Real and undiscounted|Yearly (arbitrary unit/yr)"))
 
   # Energy shares
-  tmp <- mbind(tmp,setNames(       # assume 8% for transmission losses and autoconsumption of power plants
-    100 * (output[,,"SE|Electricity|Non-Biomass Renewables (EJ/yr)"] + output[,,"SE|Electricity|Biomass (EJ/yr)"])
-    / 1.08 / output[,,"FE|Electricity (EJ/yr)"],    "Secondary Energy|Electricity|Share of renewables in gross demand|Estimation (Percent)"))
+  tmp <- mbind(
+    tmp,
+    setNames( # assume 8 % for transmission losses and autoconsumption of power plants
+        100
+      * ( output[,,"SE|Electricity|Non-Biomass Renewables (EJ/yr)"]
+        + output[,,"SE|Electricity|Biomass (EJ/yr)"]
+        )
+      / 1.08
+      / output[,,"FE|Electricity (EJ/yr)"],
+      "Secondary Energy|Electricity|Share of renewables in gross demand|Estimation (Percent)"))
 
   # Energy expenditures
   tmp <- mbind(tmp,setNames(