R/round_weights.R

In Matherion/mdmcda: Multi Decision Multi Criteria Decision Analysis

#' @export
round_weights <- function(weightsMeansAndSDs) {
  for (i in unique(weightsMeansAndSDs$parentCriterion_id)) {
    if (nchar(i) > 1) {
      ### Round to a multiple of 5
      weightsMeansAndSDs[weightsMeansAndSDs$parentCriterion_id==i,
                         'mean_rounded'] <-
        5 *
        round(weightsMeansAndSDs[weightsMeansAndSDs$parentCriterion_id==i,
                                 'mean_rescaled'] / 5);
    }
  }
  return(weightsMeansAndSDs);
}