代码:
CLPM <- '
# 滞后效应
x2 + y2 ~ x1 + y1
x3 + y3 ~ x2 + y2
x2 + m2 ~ x1 + m1
x3 + m3 ~ x2 + m2
m2 + y2 ~ m1 + y1
m3 + y3 ~ m2 + y2
# 相关
x1 ~~ y1
x1 ~~ m1
m1 ~~ y1
# 协方差
x2 ~~ y2
x2 ~~ m2
m2 ~~ y2
x3 ~~ y3
x3 ~~ m3
m3 ~~ y3
# 方差
x1 ~~ x1
m1 ~~ m1
y1 ~~ y1
x2 ~~ x2
m2 ~~ m2
y2 ~~ y2
x3 ~~ x3
m3 ~~ m3
y3 ~~ y3
'
#出结果
CLPM.fit <- sem(CLPM, data = data1)
summary(CLPM.fit)
出错提醒:Error in lavParseModelString(model) :
lavaan ERROR: duplicate model element in: x2+m2~x1+m1