R/GetAdjustmentSpecs.R

In nextpagesoft/hivEstimatesAccuracyReloaded: Improves Accuracy of HIV Estimates in EU/EEA Countries

GetAdjustmentSpecs <- function(
  adjustmentNames
) {
  adjustmentFilePaths <- GetAdjustmentSpecFileNames()
  adjustmentSpecs <- setNames(lapply(
    adjustmentNames,
    function(adjName) GetListObject(adjustmentFilePaths[adjName])
  ),
  adjustmentNames
  )

  return(adjustmentSpecs)
}