revdep/checks.noindex/SDMtune/old/SDMtune.Rcheck/tests/testthat/test-auc.R

In gbm-developers/gbm: Generalized Boosted Regression Models

skip_on_cran()
skip_on_appveyor()

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_error(auc(m, SDMtune:::t@data),
               "\"test\" argument invalid, use an SWD object.")
  expect_error(auc(m_cv, SDMtune:::t@data),
               "\"test\" argument invalid, use an SWD object.")
})

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