From c89a4684bc87b943071e8669afab174aae7850e9 Mon Sep 17 00:00:00 2001
From: WesIngwersen <ingwersen.wesley@epa.gov>
Date: Wed, 14 Aug 2024 14:39:06 -0400
Subject: [PATCH] Drop code for creating an N_m within CalculateNmatrix which
 would overwrite the exisitng N_m

---
 R/StateEEIOCalculations.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/R/StateEEIOCalculations.R b/R/StateEEIOCalculations.R
index 882bac5..f904055 100644
--- a/R/StateEEIOCalculations.R
+++ b/R/StateEEIOCalculations.R
@@ -350,6 +350,5 @@ calculateNMatrix <- function(model, state) {
   mat <- t(as.matrix(mat[match(colnames(model[["D"]]), rownames(mat)),]))
   rownames(mat) <- "Greenhouse Gases"
   model[["N"]] <- mat
-  model[["N_m"]] <- model$C %*% model$Q_t
   return(model)
 }