Calculate reliability from E/CFA

Usage

fa_reliability(x, ...)

# S3 method for fa
fa_reliability(x, keys = NULL, threshold = 0, labels = NULL, ...)

# S3 method for lavaan
fa_reliability(x, ...)

Arguments

x: E/CFA model (e.g., the result from psych::fa() or lavaan::cfa()).
...: For lavaan objects, arguments passed to semTools::compRelSEM()
keys: optional, see ?psych::make.keys
threshold: which values from the loadings should be used? Only used if keys = NULL.
labels: optional factor labels

Author

Brenton M. Wiernik

Examples

data("Harman74.cor")
EFA <- psych::fa(Harman74.cor$cov, 4)

fa_reliability(EFA)
#>   Factor     Omega
#> 1    MR1 0.3277047
#> 2    MR3 0.3644993
#> 3    MR2 0.6165788
#> 4    MR4 0.3653912
HS.model <- " visual  =~ x1 + x2 + x3
              textual =~ x4 + x5 + x6
              speed   =~ x7 + x8 + x9 "

CFA <- lavaan::cfa(HS.model, data = lavaan::HolzingerSwineford1939)

fa_reliability(CFA)
#>    Factor     Omega
#> 1  visual 0.6120052
#> 2 textual 0.8850608
#> 3   speed 0.6858417