tests/testthat/test-broom.R

In pachamaltese/boostedglm: Efficient Fitting of Linear and Generalized Linear Models

# LM ----

patrick::with_parameters_test_that("elm + broom is the same as lm:", {
  m1 <- lm(model, data = mtcars)
  m2 <- elm(model, data = mtcars, reduce = reduce)

  tm1 <- broom::tidy(m1)
  tm2 <- broom::tidy(m2)

  am1 <- broom::augment(m1, newdata = mtcars)
  am2 <- broom::augment(m2, newdata = mtcars)

  expect_equal(tm2, tm1)
  expect_equal(am2, am1)
},
.cases = elm_cases()
)

# GLM ----

patrick::with_parameters_test_that("eglm + broom is the same as glm:", {
  m1 <- glm(model, family = family, data = mtcars)
  m2 <- eglm(model, family = family, data = mtcars, reduce = reduce)

  tm1 <- broom::tidy(m1, exponentiate = TRUE)
  tm2 <- broom::tidy(m2, exponentiate = TRUE)

  am1 <- broom::augment(m1, newdata = mtcars)
  am2 <- broom::augment(m2, newdata = mtcars)

  expect_equal(tm2, tm1)
  expect_equal(am2, am1)
},
.cases = eglm_cases()
)