tests/testthat/test-island_area.R

In xieshu95/Trait_dependent_TraiSIE: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

context("island_area")

test_that("is valid island area", {
  area <- island_area(timeval = 2,
                      Apars = create_area_params(
                      max_area = 10,
                      proportional_peak_t = 0.5,
                      peak_sharpness = 1,
                      total_island_age = 5),
                      island_ontogeny = translate_island_ontogeny("beta")
                      )
  expect_true(is.numeric(area) && area >= 0)
})