library(genmap)
data(data.used)
context("Test of output of grid_couting_tax function")
test_that("grid_couting_tax", {
res <- grid_couting_tax(data.used, long = "lon", lat = "Lat", sp = "ID_Species")
expect_equal(3, length(res))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.