incorporate utility disaggregation into two region model testing

USEPA · Apr 8, 2024 · e23856e · e23856e
1 parent 48da7f2
commit e23856e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 62 deletions.
diff --git a/inst/extdata/modelspecs/GAEEIOv1.0-75-GHG-19.yml b/inst/extdata/modelspecs/GAEEIOv1.0-75-GHG-19.yml
diff --git a/tests/test_model_build.R b/tests/test_model_build.R
@@ -142,3 +142,15 @@ model <- useeior:::loadandbuildIndicators(model)
 model <- useeior:::loadDemandVectors(model)
 model <- useeior:::constructEEIOMatrices(model, file.path(cfg))
 printValidationResults(model)
+
+## StateEEIOv1.0 Two-region Summary model with Utility disaggregation
+model <- useeior:::initializeModel(m, configpaths = file.path(cfg))
+model$specs$Model <- "GAEEIOv1.0-75-GHG-19"
+model$specs$IODataVersion <- "0.3.0" # required for disaggregation
+model$specs$DisaggregationSpecs <- "UtilityDisaggregation"
+model <- useeior:::loadIOData(model, file.path(cfg))
+model <- useeior:::loadandbuildSatelliteTables(model)
+model <- useeior:::loadandbuildIndicators(model)
+model <- useeior:::loadDemandVectors(model)
+model <- useeior:::constructEEIOMatrices(model)
+printValidationResults(model)