Проверка дисперсии модели
Чтобы оценить трёхфакторную модель для набора данных epi, можно проанализировать дисперсию наблюдаемых переменных и выявить возможные проблемы с моделью. Очень большие значения дисперсии могут сигнализировать о проблемах, однако их следует сравнивать с исходным масштабом данных.
Применим функцию var() к переменной V1, чтобы сравнить дисперсию исходной наблюдаемой переменной с оценочной дисперсией из сводного вывода модели. Библиотеки, модель и наборы данных уже загружены.
Это упражнение является частью курса
Структурное моделирование уравнений с lavaan в R
Инструкции к упражнению
- Используйте
var()для переменнойV1, чтобы вычислить дисперсию исходной наблюдаемой переменной в наборе данныхepi. - Сравните полученное значение с оценкой дисперсии
V1в модели.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Run the model
epi.fit <- cfa(model = epi.model, data = epi)
# Examine the output
summary(epi.fit, standardized = TRUE, fit.measures = TRUE)
# Calculate the variance of V1 in the epi data
___