USEPA · WesIngwersen · Nov 23, 2021 · Nov 22, 2021
diff --git a/R/AdjustPrice.R b/R/AdjustPrice.R
@@ -28,12 +28,12 @@ adjustResultMatrixPrice <- function(matrix_name, currency_year, purchaser_price=
   return(mat)
 }
 
-#' Calculate year by model IO year price ratio.
+#' Calculate model IO year by year price ratio.
 #' @param model A complete EEIO model: a list with USEEIO model components and attributes.
-#' @return A dataframe of year by model IO year price ratio.
-calculateYearbyModelIOYearPriceRatio <- function(model) {
+#' @return A dataframe of model IO year by year price ratio.
+calculateModelIOYearbyYearPriceRatio <- function(model) {
   CPI_df <- model[[paste0("MultiYear", model$specs$CommodityorIndustryType, "CPI")]]
-  CPI_ratio_matrix <- as.matrix(CPI_df/CPI_df[, as.character(model$specs$IOYear)])
+  CPI_ratio_matrix <- as.matrix(CPI_df[, as.character(model$specs$IOYear)]/CPI_df)
   return(CPI_ratio_matrix)
 }
 

diff --git a/R/BuildModel.R b/R/BuildModel.R
@@ -104,7 +104,7 @@ constructEEIOMatrices <- function(model) {
 
   # Calculate year over model IO year price ratio
   logging::loginfo("Calculating Rho matrix (price year ratio)...")
-  model$Rho <- calculateYearbyModelIOYearPriceRatio(model)
+  model$Rho <- calculateModelIOYearbyYearPriceRatio(model)
 
   # Calculate producer over purchaser price ratio.
   logging::loginfo("Calculating Phi matrix (producer over purchaser price ratio)...")

diff --git a/man/calculateModelIOYearbyYearPriceRatio.Rd b/man/calculateModelIOYearbyYearPriceRatio.Rd
diff --git a/man/calculateYearbyModelIOYearPriceRatio.Rd b/man/calculateYearbyModelIOYearPriceRatio.Rd