Виправте латентну модель з кейсом Гейвуда
У попередній вправі ви виявили, що в опитуванні щодо впровадження кореляція на латентній змінній була > 1. Слід усунути кейс Гейвуда, об'єднавши дві латентні змінні в одну латентну змінну. Далі проаналізуйте й підсумуйте модель, щоб перевірити, чи розв'язало об'єднання цих двох факторів у один проблему з кореляцією.
Ця вправа є частиною курсу
Моделювання структурними рівняннями (SEM) з пакетом lavaan у R
Інструкції до вправи
- Змініть модель так, щоб створити лише один фактор
goodstory, який вимірюється всіма шістьма маніфестними змінними з набору данихadoptsurvey. - Проаналізуйте модель за допомогою функції
cfa(), щоб переконатися, що немає повідомлень про помилки. - Запустіть
summary()для моделі, щоб переглянути підсумкову узгодженість моделі.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
# 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)