tests/testthat/test-fair-equal_opportunity.R

In yardstick: Tidy Characterizations of Model Performance

test_that("result matches reference implementation (fairlearn)", {
  data("hpc_cv")
  py_res <- read_pydata("py-equal_opportunity")

  hpc_cv$obs_vf = as.factor(hpc_cv$obs == "VF")
  hpc_cv$pred_vf = as.factor(hpc_cv$pred == "VF")
  hpc_cv$case_weights <- read_weights_hpc_cv()

  eo <- equal_opportunity(Resample)

  expect_equal(
    eo(hpc_cv, truth = obs_vf, estimate = pred_vf, event_level = "second")$.estimate,
    py_res$binary
  )

  expect_equal(
    eo(hpc_cv, truth = obs_vf, estimate = pred_vf,
       event_level = "second", case_weights = case_weights)$.estimate,
    py_res$weighted
  )
})