three.factor <-
'#model
f1=~ 0.7*y1 + 0.7*y2 + 0.7*y3
f2=~ 0.7*y4 + 0.7*y5 + 0.7*y6
f3=~ 0.7*y7 + 0.7*y8 + 0.7*y9
#variances
f1~~1*f1
f2~~1*f2
f3~~1*f3
#covariances
f2 ~~ 0.5*f3
f1 ~~ 0.5*f2
f3 ~~ 0.5*f1
#latent regression
f1~ 0.3*f3
'
datum <- simulateData(three.factor, sample.nobs=1000)
Error in lavParseModelString(model.syntax = model, warn = warn, debug = FALSE) :
lavaan ERROR: duplicate model element in: f1~0.3*f3
three.factor <-
'#model
f1=~ 0.7*y1 + 0.7*y2 + 0.7*y3
f2=~ 0.7*y4 + 0.7*y5 + 0.7*y6
f3=~ 0.7*y7 + 0.7*y8 + 0.7*y9
#variances
f1~~1*f1
f2~~1*f2
f3~~1*f3
#covariances
f2 ~~ 0.5*f3
f1 ~~ 0.5*f2
f1 ~~ 0.5*f3 #<----- THE CHANGE HAPPENED HERE
#latent regression
f1~ 0.3*f3
'
datum <- simulateData(three.factor, sample.nobs=1000)three.factor1 <- '#model
f1=~ NA*y1 + y2 + y3
f2=~ NA*y4 + y5 + y6
f3=~ NA*y7 + y8 + y9
#variances
f1~~1*f1
f2~~1*f2
f3~~1*f3
#covariances
f2 ~~ f3
f1 ~~ f3
#latent regressions
f1~f3
'
summary(sem(three.factor1, datum), rsquare=TRUE, standardized=TRUE)