R/calculate_enc_score.R

In cap-nhq-analytics/sqdn-of-merit-calculator: Calculating Squadron of Merit / Distinction Scores

#' @title Calculate the Encampment Score
#' @description Calculate the encampment score for all units in a Squadron of Merit Listing.
#' @details
#' This score awards 1 point for every first-time Encampment attendee.
#'
#' The final result is then standardized using the distribution of the scores to have a mean of 1
#' and standard deviation of 1.
#' @param som_report A data.table containing the Squadron of Merit Listing data.
#' @return A data.table containing the unit charter number and the encampment score.
#' @export

calculate_enc_score <- function(som_report) {
    result <- som_report[j = list(RWU, FrstEncCnt)]
    result[j = enc_score := scale(FrstEncCnt) + 1]
    result <- result[j = list(RWU, enc_score)]
    result[]
    return(result)
}