R/final_col_score.R

In cpilat97/deceTools: Internal DECE tools to make life easier :)

#' Final COL Score
#'
#' Calculates the final col score proportion out of 5
#'
#' Should show up to 2 decimal places
#'
#' To be used in a mutate within the prep_scores call. INTERNAL FUNCTION FOR THIS PACKAGE
#'
#' @param .data
#'
#' @return
#' @export
#'
#' @examples
final_col_score = function(.data) {

  x <-
    ((.data$final_col_1a / 5) * 10) +
    .data$sv_COL_1B +
    .data$final_col_1c +
    .data$EquityAndAccess_2 +
    .data$RespectingDifferences_3 +
    ((.data$PositiveClassCulture_4A / 5) * 6) +
    ((.data$PositiveClassCulture_4B / 5) * 6) +
    ((.data$final_5 / 5) * 8) +
    ((.data$final_6a / 5) * 8) +
    ((.data$final_6b / 5) * 7) +
    .data$ResponsiveInstruction_7 +
    .data$CollabWithFamilies_8 +
    .data$CargiversTeachersAdvocates_9 +
    .data$final_10a +
    .data$final_10b +
    .data$QualifiedLeadership_11 +
    .data$OrgCultureCommunity_12

  y <- round((x / 100) * 5, digits = 2)

  return(y)

}