Calculate Risk Score

Calculates the risk score for each group in the provided results data frame.

Usage

CalculateRiskScore(dfFlaggedWeights)

Arguments

dfFlaggedWeights

`data.frame` Dataframe of stacked analysis outputs from the metrics calculated in the `workflow/2_metrics` workflows. Must contain the columns `GroupLevel`, `GroupID`, `Weight`, and `WeightMax`.

Value

`data.frame` that has the same features as Analysis_Summary.

Examples

analysisFlagged <- gsm.core::analyticsSummary %>%
  dplyr::mutate(
    Weight = dplyr::case_when(
      abs(Flag) == 1 ~ 2,
      abs(Flag) == 2 ~ 4,
      Flag == 0 ~ 0,
      TRUE ~ NA
    ),
    WeightMax = 4
  )

lAnalysis <- list("Analysis_kri0001" = list(
  Analysis_Flagged = analysisFlagged,
  ID = "Analysis_kri0001"
))
lAnalysis_filtered <- FilterAnalysis(lAnalysis)
dfFlaggedWeights <- StackAnalysis(lAnalysis_filtered)
dfRiskScore <- CalculateRiskScore(dfFlaggedWeights)