tests/testthat/test-DAISIE_sumstats_rates.R

In DAISIE: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

test_that("use simple ontogeny code", {
  out <- DAISIE_calc_sumstats_pcrates(
    pars = c(0.2, 0.2, 40, 0.1, 1),
    area_pars = create_area_pars(max_area = 1000,
                                 current_area = 500,
                                 proportional_peak_t = 0.1,
                                 total_island_age = 12,
                                 sea_level_amplitude = 0,
                                 sea_level_frequency = 0,
                                 island_gradient_angle = 0),
    total_time = 10,
    island_ontogeny = 1,
    extcutoff = 100,
    mainland_n = 1000,
    resol = 100,
    hyper_pars = create_hyper_pars(
      d = 0.2,
      x = 0.1)
  )
  testthat::expect_true(is.list(out))
})