tests/testthat/test-addSamplesToBg.R

In sgvignali/SDMtune: Species Distribution Model Selection

x <- SDMtune:::t

test_that("Add all samples to background", {
  o <- addSamplesToBg(x, all = TRUE)
  expect_s4_class(o, "SWD")
  expect_equal(nrow(o@data), 5800)
  expect_equal(nrow(o@coords), 5800)
  expect_equal(length(o@pa), 5800)
  expect_equal(o@data[5401:5800, ], x@data[x@pa == 1, ], ignore_attr = TRUE)
  expect_equal(o@coords[5401:5800, ], x@coords[x@pa == 1, ], ignore_attr = TRUE)
})

test_that("Add samples to background only if not duplicates", {
  o <- addSamplesToBg(x)
  expect_s4_class(o, "SWD")
  expect_equal(nrow(o@data), 5607)
  expect_equal(nrow(o@coords), 5607)
  expect_equal(length(o@pa), 5607)
})

test_that("Error are raised", {
  expect_snapshot_error(addSamplesToBg(x@data))
})