Fix the Latent Heywood Model
In the last exercise, you found that the adoption survey had a correlation > 1 on the latent variable. You should fix the Heywood case by collapsing the two latent variables into one latent variable. Then you should analyze and summarize the model to explore if merging these two factors into one has solved the problematic correlation.
This exercise is part of the course
Structural Equation Modeling with lavaan in R
Exercise instructions
- Change the model to create only one
goodstory
factor that is measured by all six manifest variables in theadoptsurvey
dataset. - Analyze the model with the
cfa()
function to ensure there are no error messages. - Run the
summary()
for the model to view the final model fit.
Hands-on interactive exercise
Have a go at this exercise by completing this sample code.
# Look at the data
head(adoptsurvey)
# Edit the original model
adopt.model <- 'goodstory =~ pictures + background + loveskids
inperson =~ energy + wagstail + playful'
# Analyze the model
adopt.fit <- cfa(model = ___, data = adoptsurvey)
# Look for Heywood cases
summary(___, standardized = TRUE, fit.measures = TRUE)