r语言实现sem_R语言基于协方差的SEM结构方程模型中的拟合指数

遵循以下决策规则：

​

所有这些 在R中实现。

library(lavaan)

为此，我假设 数据 9个问题，受访者依次回答了x1至x9。

data("HolzingerSwineford1939")

# model syntax for HolzingerSwineford1939 dataset

(syntax

paste("f1 =~", paste0("x", 1:3, collapse = " + ")),

paste("f2 =~", paste0("x", 4:6, collapse = " + ")),

paste("f3 =~", paste0("x", 7:9, collapse = " + ")),

sep = "\n"))

[1] "f1 =~ x1 + x2 + x3\nf2 =~ x4 + x5 + x6\nf3 =~ x7 + x8 + x9"

运行模型，标准化潜在变量，并报告标准化结果：

lavaan (0.5-23.1097) converged normally after 22 iterations

Number of observations 301

Estimator ML

Minimum Function Test Statistic 85.306

Degrees of freedom 24

P-value (Chi-square) 0.000

Parameter Estimates:

Information Expected

Standard Errors Standard

Latent Variables:

Estimate S