library(lavaan)
# From the help page of lavaan::cfa().
HS.model <- '
visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
'
fit <- cfa(HS.model, data = HolzingerSwineford1939)
# By default show how CFI is computed
show_ifi(fit)
# Show how TLI is computed
show_ifi(fit, fit_measures = "tli")
# Wrappers
show_cfi(fit)
show_tli(fit)
Run the code above in your browser using DataLab