tests/testthat/test_skinny_flips.R
In kosukeimai/redist: Simulation Methods for Legislative Redistricting
test_that("skinny flips works", {
plans <- skinny_flips(adj = adj, init_plan = plans_10[, 1],
total_pop = fl25$pop, pop_tol = 0.15,
nsims = 5, eprob = 0.05, lambda = 1, constraints = redist_constr())
expect_true("matrix" %in% class(plans))
expect_true(min(plans) == 1)
})
kosukeimai/redist documentation built on March 28, 2024, 7:36 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("skinny flips works", {
plans <- skinny_flips(adj = adj, init_plan = plans_10[, 1],
total_pop = fl25$pop, pop_tol = 0.15,
nsims = 5, eprob = 0.05, lambda = 1, constraints = redist_constr())
expect_true("matrix" %in% class(plans))
expect_true(min(plans) == 1)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.