export formatDemandVector

USEPA · Sep 6, 2023 · bf42e8a · bf42e8a
1 parent f03e515
commit bf42e8a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -20,6 +20,7 @@ export(compareFlowTotals)
 export(compareOutputandLeontiefXDemand)
 export(disaggregateTotalToDirectAndTier1)
 export(extractAndFormatDemandVector)
+export(formatDemandVector)
 export(generateModelIdentifier)
 export(heatmapSatelliteTableCoverage)
 export(heatmapSectorRanking)

diff --git a/R/DemandFunctions.R b/R/DemandFunctions.R
@@ -140,6 +140,7 @@ isDemandVectorValid <- function(dv, L){
 #' @param dv, a user provided demand vector. See calculateEEIOModel()
 #' @param L, the L matrix for the given model, used as a reference
 #' @return A named vector with values for all names in L and ordered like L
+#' @export
 formatDemandVector <- function(dv,L) {
   #create a named vector using the first col of L
   d <- c(L[,1])