tests/testthat/test-are_trait_state_params.R

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

context("are_trait_state_params")

test_that("use", {
  expect_true(
    are_trait_state_params(
      create_trait_state_params(
        trans_rate = 0.5,
        immig_rate2 = 0.1,
        ext_rate2 = 0.2,
        ana_rate2 = 0.3,
        clado_rate2 = 0.4,
        trans_rate2 = 0.5,
        K2 = 20,
        M2 = 1000)))
})