call create disagg files from proxy data function from useeior for st…

…ate objects
USEPA · Apr 26, 2024 · bcf707a · bcf707a
1 parent b786b92
commit bcf707a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/BuildModel.R b/R/BuildModel.R
@@ -679,8 +679,8 @@ assembleTwoRegionIO <- function(year, iolevel, disagg_specs=NULL) {
 
         if(!is.null(disagg$stateDF)) {
           # Get the correct disaggregation percentages for each state
-          model <- createDisaggFilesFromProxyData(model, disagg, year, state)
-          #model <- useeior:::createDisaggFilesFromProxyData(model, disagg, year, state)
+          #model <- createDisaggFilesFromProxyData(model, disagg, year, state)
+          model <- useeior:::createDisaggFilesFromProxyData(model, disagg, year, state)
           disagg <- model$DisaggregationSpecs[[disagg$OriginalSectorCode]]
         } 
         model <- disaggregateStateModel(model, state)