tests/testthat/test-forward-aic.R

In rsquaredacademy/blorr: Tools for Developing Binary Logistic Regression Models

test_that("output from forward variable selection is as expected", {

  model <- glm(
    honcomp ~ female + read + science, data = hsb2,
    family = binomial(link = "logit")
  )

  expect_snapshot(blr_step_aic_forward(model))

})