--
You received this message because you are subscribed to the Google Groups "lavaan" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lavaan+un...@googlegroups.com.
To post to this group, send email to lav...@googlegroups.com.
Visit this group at https://groups.google.com/group/lavaan.
For more options, visit https://groups.google.com/d/optout.
<Empathie_nieuw.csv>
Am I missing something or did my message get missed? Can’t you just do this:
Empathie_nieuw <- read.csv("~/Downloads/Empathie_nieuw.csv", sep = ";", na.strings = c(""))
library(lavaan)
Model1<- '
group:1
COG_EMP =~ lam1*BES3 + lam2*BES6 + lam3*BES9 + lam4*BES10 + lam5*BES12 + lam6*BES14 + lam7*BES16 + lam8*BES19 + lam9*BES20
AFF_EMP =~ lam10*BES1 + lam11*BES2 + lam12*BES4 + lam13*BES5 + lam14*BES7 + lam15*BES8 + lam16*BES11 + lam17*BES13 + lam18*BES15 + lam19*BES17 + lam20*BES18
group:2
COG_EMP =~ lam1*TvA3 + lam2*TvA4 + lam3*TvA5 + lam4*TvA6 + lam5*TvA8 + lam6*TvA11 + lam7*TvA15 + lam8*TvA16 + lam9*TvA18
AFF_EMP =~ lam10*TvA1 + lam11*TvA2 + lam12*TvA7 + lam13*TvA9+ lam14*TvA10 + lam15*TvA12 + lam16*TvA13 + lam17*TvA14 + lam18*TvA17 + lam19*TvA19 + lam20*TvA20'
bes.res.conf <- cfa(Model1, data=Empathie_nieuw,
estimator = "MLR",
group = "Vragenlijst")
summary(bes.res.conf)
Also, if your items are ordinal, you should be treating them as ordinal and not as continuous like you presently are.
Factor loadings are not going to be the same, because of the different scales (5-point and 3-point Likert).Probably it is, as some of you say, indeed impossible to do a configural analysis with these data.
BES3 | t1 + gen3_t2*t2 + gen3_t3*t3 + t4 # likewise for each old item
TvA3 | gen3_t2*t1 + gen3_t3*t2 # likewise for each new item
TvA3 ~ NA*1 # intercept
TvA3 ~~ NA*TvA3 # residual variance