tests/testthat/test-blr-pairs.R

In blorr: Tools for Developing Binary Logistic Regression Models

test_that("output from blr_pairs is as expected", {
  model <- glm(
    honcomp ~ female + read + science, data = blorr::hsb2,
    family = binomial(link = "logit")
  )

  actual   <- round(blr_pairs(model)[['gamma']], 2)
  expected <- 0.71

  expect_equal(actual, expected)
})