GAD-7 scoring — gad7_score • HealthMarkers

GAD-7 scoring

Usage

gad7_score(
  data,
  col_map = list(),
  na_action = c("keep", "omit", "error"),
  missing_prop_max = 0.2,
  impute = c("none", "mean"),
  prefix = "GAD7",
  verbose = FALSE
)

Arguments

data: Data frame containing questionnaire item columns.
col_map: Named list mapping canonical item IDs to column names; defaults assume items are already named.
na_action: How to handle rows with missing items: keep, omit, or error.
missing_prop_max: Maximum allowed proportion of missing items per row before the score is set to NA.
impute: Imputation strategy for missing items when under the threshold: none or mean (row-wise mean).
prefix: Prefix for output column names.
verbose: Logical flag for verbose messaging (reserved).

Value

A tibble of score columns only: GAD7_total and GAD7_severity (factor). Input columns are not included.

References

Spitzer RL, Kroenke K, Williams JBW, Löwe B (2006). “A Brief Measure for Assessing Generalized Anxiety Disorder: The GAD-7.” Archives of Internal Medicine, 166(10), 1092–1097. doi:10.1001/archinte.166.10.1092 . ; Plummer F, Manea L, Trepel D, McMillan D (2016). “Screening for Anxiety Disorders with the GAD-7 and GAD-2: A Systematic Review and Diagnostic Meta-Analysis.” General Hospital Psychiatry, 39, 24–31. doi:10.1016/j.genhosppsych.2015.11.005 .

Examples

df <- data.frame(gad7_01 = 0, gad7_02 = 1, gad7_03 = 2, gad7_04 = 1,
                 gad7_05 = 0, gad7_06 = 1, gad7_07 = 2)
gad7_score(df)
#> # A tibble: 1 × 2
#>   GAD7_total GAD7_severity
#>        <dbl> <fct>        
#> 1          7 mild