tests/testthat/test-stepwise-aic.R

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

  model <- glm(y ~ ., data = stepwise, family = binomial(link = 'logit'))
  expect_snapshot(blr_step_aic_both(model))

})
rsquaredacademy/blorr documentation built on Nov. 12, 2024, 1:44 a.m.