tests/testthat/test-stepHalving.R

library(lme4)
library(testthat)
load(system.file("testdata","survdat_reduced.Rda",package="lme4"))

test_that('Step-halving works properly', {
  # this example is known to require step-halving (or at least has in the past
  # required step-halving)
  form <- survprop~(1|nobs)
  m <- glmer(form,weights=eggs,data=survdat_reduced,family=binomial,nAGQ=1L)
  expect_that(m, is_a("glmerMod"))
})

Try the lme4 package in your browser

Any scripts or data that you put into this service are public.

lme4 documentation built on June 22, 2021, 9:07 a.m.