did this in 455b406 and
f9f1ab4

tested with this code

library(devtools)
load_all()

model <- buildModel("USEEIOv2.3-s-GHG-19")

model <- buildModel("MEEEIOv1.1-GHGc-20",configpaths = "../USEEIO-State/model_specs/ME/MEEEIOv1.1-GHGc-20.yml")

loc <- model$specs$ModelRegionAcronyms[1]

r_noRoW_f <- calculateEEIOModel(model, perspective="FINAL", demand = "Consumption", location = loc,
use_domestic_requirements = FALSE, household_emissions = TRUE, show_RoW = FALSE)

r_RoW_f <- calculateEEIOModel(model, perspective="FINAL", demand = "Consumption", location = loc,
                              use_domestic_requirements = FALSE, household_emissions = TRUE, show_RoW = TRUE)


colSums(r_noRoW_f$LCI_f) == colSums(r_RoW_f$LCI_f)

r_noRoW_d <- calculateEEIOModel(model, perspective="DIRECT", demand = "Consumption", location = loc,
                                use_domestic_requirements = FALSE, household_emissions = TRUE, show_RoW = FALSE)

r_RoW_d <- calculateEEIOModel(model, perspective="DIRECT", demand = "Consumption", location = loc,
                              use_domestic_requirements = FALSE, household_emissions = TRUE, show_RoW = TRUE)


all.equal(colSums(r_noRoW_d$LCI_d),colSums(r_RoW_f$LCI_f))
all.equal(colSums(r_RoW_d$LCI_d),colSums(r_RoW_f$LCI_f))
all.equal(colSums(r_noRoW_d$LCI_d),colSums(r_RoW_f$LCI_f))

those statements return TRUE

Also my recommendation is some refactoring..its a very long set of operations with a lot of redundancy in the direct and final IF clauses

Show results from RoW separately in results matrix #312

Description

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions