tests/testthat/test-compactness_helpers.R

test_that("prep_perims works", {
  x <- prep_perims(nh)
  expect_equal(sum(x$edge), 38135377, tolerance = 1e-4)
  expect_equal(nrow(x), 1833)
})

Try the redistmetrics package in your browser

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

redistmetrics documentation built on April 11, 2022, 5:08 p.m.