margins removed from two region models see #290

USEPA · Oct 28, 2024 · f06c52d · f06c52d
1 parent d2cf76d
commit f06c52d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/DisaggregateFunctions.R b/R/DisaggregateFunctions.R
@@ -56,8 +56,10 @@ disaggregateModel <- function (model){
     #Disaggregating Crosswalk
     model$crosswalk <- disaggregateMasterCrosswalk(model, disagg)
 
-    #Disaggregate Margins
-    model$Margins <- disaggregateMargins(model, disagg)
+    if (model$specs$IODataSource != "stateior") {
+      #Disaggregate Margins, one region models only see #290
+      model$Margins <- disaggregateMargins(model, disagg)
+    }
     model$TaxLessSubsidies <- disaggregateTaxLessSubsidies(model, disagg)
 
     # Transform model FinalDemand, DomesticFinalDemand, and InternationalTradeAdjustment to by-industry form