Я хочу оценить требуемый размер моей выборки на основе моделирования с использованием пилотных данных.Моя модель выглядит следующим образом:
model1 <- glmer(decision ~ 1 + default + aest + obstruc + privatt + (1 + default + aest + obstruc | id), family = 'binomial', data = pilot_data)
Пакет simR предлагает возможность расширения заданного набора данных, а затем рассчитать мощность вашей модели на разных этапах числа, которое было увеличено (в моем случае количество участников), визуализированный в powercurve.Вместо того, чтобы тестировать только один фиксированный эффект (с помощью функции fixed
), я хотел бы одновременно запускать powerCurve
для моих трех основных эффектов (основные эффекты: default, aest и obstruc; privatt - управляющая переменная).Моя идея состоит в том, чтобы использовать функцию fcompare
и сравнить мою полную модель с нулевой моделью (только с перехватом).
Мой вопрос: является ли эта процедура статистически правильной?В конце я хочу проверить, где мой powercurve достигает 80% и набрать соответствующее количество участников.
Код для расширения набора данных и создания кривой мощности выглядит следующим образом:
model1_ext <- extend(model1, along='id', n='250')
pc_model1 <- powerCurve(model1_ext, fcompare(~ 1, method = 'pb'), along='id', nsim=1000 )