tests/testthat/test-auc.R

In sgvignali/SDMtune: Species Distribution Model Selection

skip_on_cran()

m <- SDMtune:::bm_maxent
m_cv <- SDMtune:::bm_maxent_cv

test_that("The function returns the expected output", {
  expect_true(auc(m) < 1)
  expect_true(is.numeric(auc(SDMtune:::bm_maxnet)))
  expect_true(auc(m_cv) < 1)
  expect_true(is.numeric(auc(m_cv)))
})

test_that("The function uses the testing dataset", {
  expect_true(auc(m) != auc(m, test = m_cv@models[[1]]@data))
  expect_true(auc(m_cv) > auc(m_cv, test = TRUE))
  expect_true(auc(m_cv) > auc(m_cv, test = SDMtune:::t))
})

test_that("The function raises warnings and errors", {
  expect_snapshot_error(auc(m, SDMtune:::t@data))
  expect_snapshot_error(auc(m_cv, SDMtune:::t@data))
})

test_that("The function returns the same result than Maxent software", {
  expect_equal(round(auc(m), 4), m@model@results[5])
})