R 在Lavan中努力构建带有分类外生变量的中介模型

在一个简单的中介模型中，我有一个伪编码的分类变量作为我的IV，我正努力在

lavan

中正确地表达我的路径。我试着对模型进行措辞，以便为每个虚拟编码对比度提供不同的系数。现在我有：

medmodelknowdisgust <- '
disgust ~ a1*b.a
disgust ~ a2*b.c
disgust ~ a3*b.d
disgust ~ a4*b.e

know_ave_correct ~ cp1 * b.a + B1 * disgust
know_ave_correct ~ cp2 * b.c + B2 * disgust
know_ave_correct ~ cp3 * b.d + B3 * disgust
know_ave_correct ~ cp4 * b.e + B4 * disgust

ab1 := a1 * B1
ab2 := a2 * B2
ab3 := a3 * B3
ab4 := a4 * B4'

fitknowdisgust <- sem(medmodelknowdisgust, data = d, se = "bootstrap", bootstrap = 1000)

---

MedModelKnowsOst您能添加一个示例数据集吗？