dwww Home | Show directory contents | Find package

if (requiet("lme4")) {
  data(mtcars)

  m1 <- suppressWarnings(glmer(
    vs / cyl ~ disp + (1 | cyl),
    data = mtcars,
    family = binomial(link = "logit")
  ))

  m2 <- suppressWarnings(glmer(
    I(vs / cyl) ~ disp + (1 | cyl),
    data = mtcars,
    family = binomial(link = "logit")
  ))

  test_that("get_response", {
    expect_equal(head(get_response(m1, as_proportion = TRUE)), c(0, 0, 0.25, 0.16667, 0, 0.16667), tolerance = 1e-2)
    expect_equal(head(get_response(m1, as_proportion = FALSE)), head(mtcars[, c("vs", "cyl")]), tolerance = 1e-2)
    expect_equal(get_response(m2), mtcars[, c("vs", "cyl")])
  })

  test_that("find_response", {
    expect_equal(find_response(m1), "vs/cyl")
    expect_equal(find_response(m2), "I(vs/cyl)")
    expect_equal(find_response(m1, combine = FALSE), c("vs", "cyl"))
    expect_equal(find_response(m2, combine = FALSE), c("vs", "cyl"))
  })
}

Generated by dwww version 1.15 on Sat Jun 15 20:58:21 CEST 2024.