代码：
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