tests/testthat/test-MoransI.R

In goodsman/ICvectorfields: Vector Fields from Spatial Time Series of Population Abundance

test_that("Moran's I works", {
  TestMat <- matrix(c(1, 0, 1, 0, 1,
                      0, 1, 0, 1, 0,
                      1, 0, 1, 0, 1,
                      0, 1, 0, 1, 0,
                      1, 0, 1, 0, 1),
                    nrow =5)
  MoransI(TestMat, r1 = 1)
  expect_equal(round(MoransI(TestMat, r1 = 1), 3), -1)
})