Skip to content
Prev 18373 / 20628 Next

nAGQ > 1 in lme4::glmer gives unexpected likelihood

Interestingly (and reassuringly), Laplace and nAGQ give consistent results for binomial GLMM.
Could there be a glitch for Poisson GLMM?

#### Likelihood of Binomial GLMM Models

# r-sig-mixed-models GLMM question*
library(lme4)
set.seed(51)

# Simulate some random effect-driven Poisson data*
# random_effects <- rnorm(10, 0, 2)
# random_effects <- rnorm(10, 0, 0.01)
random_effects <- rnorm(10, 0, 1)

group <- rep(1:10, 10)
simulated_data <- data.frame(y = rbinom(n = 100, size = 1, 
    prob = exp(2+random_effects[group])/(1+exp(2+random_effects[group]))), group = group)

# Fit models with Laplace (nAGQ = 1) and nAGQ = 11*
fit_Laplace <- glmer(y ~ (1|group), data = simulated_data, family =
                       binomial())
fit_AGQ <- glmer(y ~ (1|group), data = simulated_data, family = binomial(),
                 nAGQ = 11)
# fit_glm = glm(y ~ group, data=simulated_data, family=binomial)

(logLik(fit_Laplace))
(logLik(fit_AGQ))  # very similar to fit_Laplace
# (logLik(fit_glm))