ich hoffe jemand kann mir helfen!
Ich will in R ein Strukturgleichungsmodell berechnen mit latenten Variablen.
Meine UV ist die Religiösität und besteht aus mehreren Items, mein Mediator ist das Familienbild und besteht ebenfalls aus mehreren Items, meine AV ist die Toleranz gegenüber Homosexualität.
Ich habe eine CFAs und EFas für meine UV und mein Moderator durchgeführt.
Jetzt will ich meine sem berechnen. Bekomme aber diese Fehlermeldung:
Code: Alles auswählen
Fehler in lav_samplestats_icov(COV = cov[[g]], ridge = ridge, x.idx = x.idx[[g]], :
lavaan ERROR: sample covariance matrix is not positive-definite
Mein Code sieht so aus:
Code: Alles auswählen
```{r}
model_pfad1 <-
"
#Religiosität
rlg1_GOD =~ rlggod
rlg2_BELIEF =~ rlghaeuf + rlgimp + rlgtrust
rlg3_PRAY=~ rlgpray
rlgimp ~~ a*rlghaeuf
rlgimp ~~ a*rlgtrust
rlgimp ~~ a*rlgpray
rlghaeuf ~~ a*rlggod
rlghaeuf ~~ a*rlgtrust
rlggod ~~ a*rlgtrust
rlggod ~~ a*rlgpray
rlgtrust ~~ a*rlgpray
#Familienbild
fam_a_1 =~ fam8 + fam7 + fam6 + fam5
fam_a_2 =~ fam8 + fam7 + fam6 + fam5
fam_a_3 =~ fam8 + fam7 + fam6 + fam5
fam_b_4 =~ fam4 + fam3 + fam2 + fam5
fam_b_5 =~ fam4 + fam3 + fam2 + fam5
fam_b_6 =~ fam4 + fam3 + fam2 + fam5
fam8 ~~ fam6
fam8 ~~ fam5
fam8 ~~ fam4
fam7 ~~ fam6
fam7 ~~ fam5
fam6 ~~ fam3
fam5 ~~ fam3
fam5 ~~ fam2
fam4 ~~ fam3
fam4 ~~ fam2
fam3 ~~ fam2
#Toleranz Homosex
#toljst =~ d_raw2$toljst - schreibe ich das überhaupt hin?!
#Strukturmodell
fam_a_1 ~ a1 * rlg1_GOD
fam_a_2 ~ a3 * rlg2_BELIEF
fam_a_3 ~ a5 * rlg3_PRAY
fam_b_4 ~ a2 * rlg1_GOD
fam_b_5 ~ a4 * rlg2_BELIEF
fam_b_6 ~ a6 * rlg3_PRAY
tol1 ~ b1 * fam_a_1 + c1 * rlg1_GOD
tol2 ~ b1 * fam_a_2 + c2 * rlg2_BELIEF
tol3 ~ b1 * fam_a_3 + c3 * rlg3_PRAY
tol4 ~ b2 * fam_b_4 + c4 * rlg1_GOD
tol5 ~ b2 * fam_b_5 + c5 * rlg2_BELIEF
tol6 ~ b2 * fam_b_6 + c6 * rlg3_PRAY
indirekt1 := (a1*b1)
total1 := c1 + indirekt1
indirekt2:= (a3*b1)
total2 := c2 + indirekt2
indirekt3:= (a5*b1)
total3 := c3 + indirekt3
indirekt4 := (a2*b2)
total4 := c4 + indirekt4
indirekt5:= (a4*b2)
total5 := c5 + indirekt5
indirekt6:= (a6*b2)
total6 := c6 + indirekt6
#Kovarianzen
rlg1_GOD ~ rlg2_BELIEF + rlg3_PRAY
rlg2_BELIEF ~ rlg1_GOD + rlg3_PRAY
rlg3_PRAY ~ rlg2_BELIEF + rlg1_GOD
fam_a ~ fam_b
"
fit_model_pfad1 <- sem(model_pfad1, d_2, se = "boot")
summary(fit_model_pfad1, fit = TRUE, standardized = TRUE)
Liebe Grüße, Alisa