tests/testthat/test-calc_ed95_param_set.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

test_that("calc_ed95_param_set works", {
  skip_if(Sys.getenv("CI") == "", message = "Run only on CI")
  ed95 <- suppressMessages(
    calc_ed95_param_set(file.path("testdata", "results"))
  )

  expected_output <- data.frame(
    param_space_name = rep("continental_cs", 8),
    param_set = 1:8,
    ed95_spec_nltt = c(1.00, 0.50, 0.75, 0.75, 1.00, 1.00, 0.75, 0.50),
    ed95_endemic_nltt = c(1.00, 0.50, 0.75, 0.75, 1.00, 1.00, 1.00, 0.50),
    ed95_nonendemic_nltt = c(0.50, 0.50, 1.00, 0.25, 0.25, 0.25, 0.25, 0.50),
    ed95_num_spec = c(0.75, 0.25, 0.25, 0.25, 0.50, 1.00, 0.50, 0.50),
    ed95_num_col = c(0.50, 0.25, 0.25, 0.50, 0.75, 0.75, 0.25, 0.25)
  )

  expect_equal(ed95, expected_output)
})