tests/testthat/test-evaluate_range_map.R

In bmaitner/pbsdm: Small Sample Size Species Distribution Modeling

context("evaluate_range_map")

test_that("evaluate_range_map is sensible", {

  library(S4DM)
  library(terra)

  # occurrence points
  data("sample_points")
  occurrences <- sample_points

  # environmental data
  env <- rast(system.file('ex/sample_env.tif', package="S4DM"))

  env <- terra::scale(env) #Note: this line causes an error without the explicit call to terra


  out <- S4DM::evaluate_range_map(occurrences = occurrences,
                            env = env,
                            method = "gaussian",
                            background_buffer_width = 100000)

  expect_gte(object = nrow(out$fold_results),expected = 1)

  expect_equal(object = nrow(out$overall_results),expected = 1)

})