export validation functions

USEPA · Oct 31, 2024 · 87a0d0b · 87a0d0b
1 parent bea22ec
commit 87a0d0b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -22,6 +22,8 @@ export(normalizeResultMatrixByTotalImpacts)
 export(plotMatrixCoefficient)
 export(printValidationResults)
 export(seeAvailableModels)
+export(testCalculationFunctions)
+export(testVisualizationFunctions)
 export(writeModelMatrices)
 export(writeModelforAPI)
 export(writeModeltoXLSX)

diff --git a/R/ValidateModel.R b/R/ValidateModel.R
@@ -516,6 +516,7 @@ validateHouseholdEmissions <- function(model) {
 #' calculateMarginSectorImpacts
 #' 
 #' @param model, A fully built EEIO model object
+#' @export
 testCalculationFunctions <- function(model) {
   target_year <- ifelse(model$specs$IOYear != 2019, 2019, 2020)
   sector <- model$Commodities$Code_Loc[[10]]
@@ -560,6 +561,7 @@ testCalculationFunctions <- function(model) {
 #' heatmapSatelliteTableCoverage, heatmapSectorRanking, plotMatrixCoefficient
 #' 
 #' @param model, A fully built EEIO model object
+#' @export
 testVisualizationFunctions <- function(model) {
   model_list <- list("model" = model)
   loc <- model$specs$ModelRegionAcronyms[[1]]