Adds test for aggregateMatrix

Author: WesIngwersen

tests/modelspecs/USEEIOv2.2-s-ECON.yml

@@ -0,0 +1,17 @@
+Model: "USEEIOv2.2-s-ECON" # 2017 Summary, Commodity
+BaseIOSchema: 2017
+BaseIOLevel: "Summary"
+IOYear: 2017 # Year for IO data
+ModelRegionAcronyms: ["US"]
+ModelType: "EEIO"
+IODataSource: "BEA"
+BasePriceType: "PRO" #producer
+BasewithRedefinitions: FALSE
+CommodityorIndustryType: "Commodity"
+ScrapIncluded: FALSE
+DisaggregationSpecs: null
+ExternalImportFactors: FALSE
+
+DemandVectors:
+    DefaultDemand: "DefaultDemandVectors" # Name of default demand vectors yml file
+# Additional demand vectors beyond useeior defaults

tests/modelspecs/USEEIOv2.2-s-GHG.yml

@@ -0,0 +1,61 @@
+Model: "USEEIOv2.2-GHG" # 2017 Detail, Commodity
+BaseIOSchema: 2017
+BaseIOLevel: "Detail"
+IOYear: 2017 # Year for IO data
+ModelRegionAcronyms: ["US"]
+ModelType: "EEIO"
+IODataSource: "BEA"
+BasePriceType: "PRO" #producer
+BasewithRedefinitions: FALSE
+CommodityorIndustryType: "Commodity"
+ScrapIncluded: FALSE
+DisaggregationSpecs: null
+
+SatelliteTable:
+  GHG:
+    FullName: "Greenhouse Gases"
+    Abbreviation: "GHG"
+    StaticSource: TRUE
+    StaticFile: "flowsa/FlowBySector/GHG_national_2022_m2_v2.0.3_1cb504c.parquet"
+    FileLocation: "DataCommons"
+    DataYears: [2022]
+    Locations: ["US"]
+    SectorListSource: "NAICS"
+    SectorListYear: 2017
+    SectorListLevel: "6"
+    OriginalFlowSource: "FEDEFLv1.2"
+    ScriptFunctionCall: "getFlowbySectorCollapsed" #function to call for script
+    ScriptFunctionParameters: null
+    DataSources:
+      USEPA_GHG_2024:
+        Title: "GHG Inventory"
+        Author: "USEPA"
+        DataYear: 2022
+        URL: "https://www.epa.gov/ghgemissions/inventory-us-greenhouse-gas-emissions-and-sinks-1990-2022"
+        Primary: TRUE
+
+Indicators:
+  GreenhouseGases:
+    Name: "Greenhouse Gases"
+    Code: "GHG"
+    Group: "Impact Potential"
+    Unit: "kg CO2 eq"
+    SimpleUnit: "Kilograms Carbon Dioxide (CO2)"
+    SimpleName: "Greenhouse Gases"
+    StaticSource: TRUE
+    StaticFile: "lciafmt/ipcc/IPCC_v1.1.1_27ba917.parquet"
+    FileLocation: "DataCommons"
+    ScriptFunctionCall: "getImpactMethod" #function to call for script
+    ScriptFunctionParameters: 
+      indicators: ["AR5-100"]
+    DataSources:
+      IPCC_AR5:
+        Title: "IPCC Fifth Assessment Report: Direct Global Warming Potentials for 100 year time horizon"
+        Author: "IPCC"
+        DataYear: 2017
+        URL: ""
+        Primary: TRUE
+
+DemandVectors:
+    DefaultDemand: "DefaultDemandVectors" # Name of default demand vectors yml file
+# Additional demand vectors beyond useeior defaults

tests/test_aggregate_matrix.R

@@ -0,0 +1,53 @@
+setwd("tests")
+library(devtools)
+load_all("../")
+
+
+#Build a detailed model that can be aggregated to summary
+## USEEIOv2.2-GHG Detail, commodity model (2017 Schema)
+modelname <- "USEEIOv2.2-GHG"
+cfg <- paste0("modelspecs/", modelname, ".yml")
+model <- buildModel(modelname, configpaths = file.path(cfg))
+
+
+# Set matrix to Use matrix
+m <- model$U
+from_level <- "Detail"
+to_level <- "Summary"
+
+m_agg <- aggregateMatrix(m,from_level,to_level,model)
+
+#Build a summary model with the same year
+#Check to see if the aggregated matrix is equivalent to a summary model matrix with the same data year
+
+modelname <- "USEEIOv2.2-s-ECON"
+cfg <- paste0("modelspecs/", modelname, ".yml")
+sum_model <- buildIOModel(modelname, configpaths = file.path(cfg))
+
+sum_m <- sum_model$U
+
+
+#Reorder to match dimensions
+m_agg <- m_agg[rownames(sum_m),colnames(sum_m)]
+
+rel_diff <- compareMatrices(m_agg,sum_m,percentage_diff = TRUE)
+
+validation <- formatValidationResult(rel_diff, abs_diff = FALSE, tolerance=0.01)
+validation
+#Fails for some cells
+
+## Test on a multi-region EEIO model
+
+modelname <- "GAEEIOv1.0-GHG-19" #this model is in the package modelspecs
+model <- buildModel(modelname)
+
+m_2R <- model$U
+
+from_level <- "Summary"
+to_level <- "Sector"
+
+m_agg <- aggregateMatrix(m_2R,from_level,to_level,model)
+
+# Fails for 2R
+
+