乳胶 (lavaan) 的 SEM 模型总结

Question

我需要使用 R 将 lavaan SEM 摘要结果打印到乳胶。有人知道该怎么做吗？

desorg.model <- '
    # latent variable
    lat_control =~ cv71_rec_mean + cv72_rec_mean + cv73_rec_mean + cv74_rec_mean + cv8_rec_mean
    # Dependent variables
    morto ~ lat_control + Reincidente + nReds + monoparentalidade + defasagem_escolar + ICE
    preso ~ lat_control + Reincidente + nReds + monoparentalidade + defasagem_escolar + ICE
    n_preso ~ lat_control + Reincidente + nReds + monoparentalidade + defasagem_escolar + ICE
'

# Fit the model to the data
desorg.fit <- sem(desorg.model, data = model_df)

# Get the summary output
summary(desorg.fit, standardized = TRUE, fit.measures = TRUE, rsquare = TRUE)

fitmeasures(desorg.fit, c("cfi", "tli", "rmsea"))