У меня есть эксперимент, который я постараюсь изложить здесь. Представьте, что я бросаю перед вами три белых камня и прошу вас высказать свое мнение об их положении. Я записываю различные свойства камней и ваш ответ. Я делаю это по ряду предметов. Я генерирую две модели. Во-первых, ближайший к вам камень предсказывает ваш ответ, а другой - в том, что геометрический центр камней предсказывает ваш ответ. Таким образом, используя lmer в RI можно написать.
mNear <- lmer(resp ~ nearest + (1|subject), REML = FALSE)
mCenter <- lmer(resp ~ center + (1|subject), REML = FALSE)
ОБНОВЛЕНИЕ И ИЗМЕНЕНИЕ - более прямая версия, которая включает в себя несколько полезных комментариев
Я мог бы попробовать
anova(mNear, mCenter)
Конечно, это неправильно, потому что они не являются вложенными, и я не могу их так сравнить. Я ожидал, что anova.mer выдаст ошибку, но это не так. Но возможное вложение, которое я мог бы попробовать здесь, не является естественным и все еще оставляет мне несколько менее аналитические утверждения. Когда модели вложены естественным образом (например, квадратичный на линейный), тест является только одним способом. Но что в этом случае означало бы иметь асимметричные результаты?
Например, я мог бы сделать модель три:
mBoth <- lmer(resp ~ center + nearest + (1|subject), REML = FALSE)
Тогда я могу анова.
anova(mCenter, mBoth)
anova(mNearest, mBoth)
Это справедливо, и теперь я нахожу, что центр добавляет к ближайшему эффекту (вторая команда), но BIC фактически повышается, когда ближайший добавляется к центру (исправление для нижней экономии). Это подтверждает то, что подозревалось.
Но достаточно ли этого? И действительно ли это справедливо, когда центр и ближайшие так сильно связаны?
Есть ли лучший способ аналитического сравнения моделей, когда речь идет не о сложении и вычитании объясняющих переменных (степеней свободы)?