tests/testthat/test-competitiveness.R

In redistmetrics: Redistricting Metrics

test_that("compet_talisman works", {
  a <- compet_talisman(nh$r_2020, nh, pre_16_rep_tru, pre_16_dem_cli)
  e <- c(0.0512324773080335, 0.0512324773080335)
  expect_equal(a, e, tolerance = 1e-4)

  a <- compet_talisman(nh_m[, 1:2], nh, pre_16_rep_tru, pre_16_dem_cli)
  e <- c(0.00873337244833722, 0.00873337244833722, 0.0512324773080335,
         0.0512324773080335)
  expect_equal(a, e, tolerance = 1e-4)
})