phylod <- create_test_phylod(3)
island_tbl <- extract_island_species(
phylod = phylod,
extraction_method = "min"
)
daisie_datatable <- as_daisie_datatable(island_tbl, island_age = 10)
daisie_data_list <- create_daisie_data(
data = daisie_datatable,
island_age = 10,
num_mainland_species = 1000,
num_clade_types = 1,
list_type2_clades = NA,
prop_type2_pool = NA,
epss = 1e-5,
verbose = FALSE
)
Run the code above in your browser using DataLab