tests/testthat/test-are_area_pars.R

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

context("are_area_pars")

test_that("minimal use", {
  expect_true(
    are_area_pars(
      create_area_pars(
        max_area = 10,
        proportional_peak_t = 0.5,
        peak_sharpness = 1,
        total_island_age = 5,
        sea_level_amplitude = 5,
        sea_level_frequency = 10,
        island_gradient_angle = 45)))
})