R/create_test_trait_state_params.R

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

create_test_trait_state_params <- function(){
  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)
}