fix error in unnamed lcia results for households

USEPA · Feb 26, 2024 · 9d8f094 · 9d8f094
1 parent 2b75069
commit 9d8f094
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/CalculationFunctions.R b/R/CalculationFunctions.R
@@ -128,6 +128,7 @@ calculateResultsWithExternalFactors <- function(model, perspective = "FINAL", de
   hh = t(as.matrix(model$B_h[, codes])) * colSums(as.matrix(model$U[, codes]))
   hh_lcia = t(model$C %*% as.matrix(model$B_h[, codes])) * colSums(as.matrix(model$U[, codes]))
   rownames(hh) <- codes
+  rownames(hh_lcia) <- codes
 
   # Calculate Final perspective results
   if(perspective == "FINAL"){