tests/testthat/test-gini-index.R

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

  actual <- blr_gini_index(model)
  expected <- ineq::Gini(model$fitted.values)
  expect_equal(actual, expected)
})

Try the blorr package in your browser

Any scripts or data that you put into this service are public.

blorr documentation built on April 3, 2025, 6:01 p.m.