dwww Home | Show directory contents | Find package

if (requiet("lme4") && getRversion() >= "4.0.0") {
  data(cbpp)
  data(sleepstudy)
  set.seed(1)
  cbpp$x <- rnorm(nrow(cbpp))
  cbpp$x2 <- runif(nrow(cbpp))

  model <- suppressWarnings(glmer(
    cbind(incidence, size - incidence) ~ period + x + x2 + (1 + x | herd),
    data = cbpp,
    family = binomial()
  ))

  test_that("is_converged", {
    expect_true(is_converged(model))
    expect_equal(is_converged(model), structure(TRUE, gradient = 0.000280307452338331), tolerance = 1e-3)
  })

  model <- lmer(Reaction ~ Days + (1 + Days | Subject), data = sleepstudy)

  test_that("is_converged", {
    expect_true(is_converged(model))
  })


  skip_on_os("mac") # error: FreeADFunObject
  if (requiet("glmmTMB") && requiet("TMB")) {
    model <- glmmTMB(Reaction ~ Days + (1 + Days | Subject), data = sleepstudy)
    test_that("is_converged, glmmTMB", {
      expect_true(is_converged(model))
    })
  }
}

Generated by dwww version 1.15 on Sun Jun 23 03:59:27 CEST 2024.