tests/testthat/test_parity.R

test_that("parity works", {
    out <- redist.parity(plans = plans_10[, 1:3],
        total_pop = pop)

    expected <- c(0.0661665990642299, 0.0363453551413081, 0.0363453551413081)
    expect_equal(out, expected = expected)
})

Try the redist package in your browser

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

redist documentation built on April 3, 2023, 5:46 p.m.