# ============================================================
# Cronbach's Alpha: Reliability
# Biostatistics in R — Rverse Analytics
# https://rverseanalytics.com/learn-biostatistics/alpha
# ============================================================

# Cronbach's alpha - scale reliability
library(psych)
# Five agreeableness items from the bfi dataset
items <- bfi[, c("A1", "A2", "A3", "A4", "A5")]
# Cronbach's alpha (A1 is reverse-keyed)
a <- alpha(items, check.keys = TRUE)
a$total