Анализ латентного случая Хейвуда
Местный приют для животных разработал опрос, чтобы оценить эффективность программы «Возьми меня домой». Участники оценивали фотографии собак, их истории и другие характеристики, чтобы определить «привлекательность» каждого животного для усыновления.
Набор данных adoptsurvey содержит шесть оцениваемых параметров: pictures, background, loveskids измеряют латентную переменную «хорошая история», а energy, wagstail, playful — латентную переменную «поведение при встрече». Вам предстоит построить двухфакторную модель опроса и проверить её на наличие случаев Хейвуда. Библиотека lavaan уже загружена.
Это упражнение является частью курса
Структурное моделирование уравнений с lavaan в R
Инструкции к упражнению
- Латентная переменная
goodstoryизмеряется с помощьюpictures,backgroundиloveskids. - Латентная переменная
inpersonизмеряется с помощьюenergy,wagstailиplayful. - Проанализируйте двухфакторную модель с помощью функции
cfa().
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Look at the data
head(adoptsurvey)
# Build the model
adopt.model <- 'goodstory ___
inperson ___'
# Analyze the model
adopt.fit <- cfa(model = ___, data = ___)