phylod <- create_test_phylod(test_scenario = 6)
island_tbl <- suppressWarnings(extract_island_species(
phylod = phylod,
extraction_method = "asr",
))
phylod <- create_test_phylod(test_scenario = 7)
island_tbl <- suppressWarnings(extract_island_species(
phylod = phylod,
extraction_method = "asr",
island_tbl = island_tbl
))
unique_genera <- unique_island_genera(island_tbl = island_tbl)
Run the code above in your browser using DataLab