tests/testthat/test-local_g_perm_snapshot_test.R

test_that("local_g_perm", {
  set.seed(19870630)
  x <- guerry$crime_pers
  nb <- st_contiguity(guerry)
  wt <- st_weights(nb)

  res <- local_g_perm(x, nb, wt)
  expect_snapshot(res)
})
JosiahParry/sfdep documentation built on Sept. 7, 2024, 6:15 a.m.