library("testthat") library("mapi") test_that("MAPI_RunOnGrid", { data("samples") data("metric") grid <- MAPI_GridHexagonal(samples, crs=3857, hw=250) set.seed(1234) # for reproductibility results <- MAPI_RunOnGrid(samples, metric, grid=grid, nbPermuts=50, nbCores=1) expect_equal(sum(results$proba), 286.34) tails <- MAPI_Tails(results) expect_equal(nrow(tails[tails$tail=='upper',]), 1) expect_equal(nrow(tails[tails$tail=='lower',]), 3) })