Если вы готовы принять участие в тестах Уолда, это должно сработать:
library(lme4)
library(car)
gm1 <- glmer(cbind(incidence, size - incidence) ~ period + (1 | herd),
data = cbpp, family = binomial)
Anova(gm1,type="III")
Однако обратите внимание (из ?Anova
), что:
Обозначения «тип-II» и «тип-III» заимствованы из SAS, но используемые здесь определения не соответствуют точно тем, которые используются в SAS. Тесты типа II рассчитываются по принципу маржинальности, проверяя каждый термин за всеми другими, за исключением игнорирования родственников высшего порядка; так называемые тесты типа III нарушают маржинальность, проверяя каждый член в модели после всех остальных. Это определение тестов типа II соответствует тестам, разработанным SAS для моделей дисперсионного анализа, где все предикторы являются факторами, но не в более общем смысле (т. Е. Когда существуют количественные предикторы). Будьте очень осторожны при формулировании модели для испытаний типа III, иначе проверенные гипотезы не будут иметь смысла.
Я бы очень внимательно проверил ваши результаты, чтобы убедиться, что они имеют смысл!
Кроме того, вы можете использовать afex::mixed
для получения аналогичных таблиц с помощью теста отношения правдоподобия или параметрической начальной загрузки; последний самый точный, но и самый медленный на сегодняшний день.
Смотрите ?pvalues
вlme4
пакете для более общего обсуждения вычисления p-значения в контексте GLMM.