1library(lme4) 2library(testthat) 3load(system.file("testdata","survdat_reduced.Rda",package="lme4")) 4 5test_that('Step-halving works properly', { 6 # this example is known to require step-halving (or at least has in the past 7 # required step-halving) 8 form <- survprop~(1|nobs) 9 m <- glmer(form,weights=eggs,data=survdat_reduced,family=binomial,nAGQ=1L) 10 expect_that(m, is_a("glmerMod")) 11}) 12