# \donttest{
# Assign plankton groups to a list of species
result <- assign_phytoplankton_group(
scientific_names = c("Tripos fusus", "Diatoma", "Nodularia spumigena", "Octactis speculum"),
aphia_ids = c(840626, 149013, 160566, NA), verbose = FALSE)
print(result)
# Assign plankton groups using additional custom grouping
custom_groups <- list(
Cryptophytes = list(class = "Cryptophyceae"),
Ciliates = list(phylum = "Ciliophora")
)
# Assign with custom groups
result_custom <- assign_phytoplankton_group(
scientific_names = c("Teleaulax amphioxeia", "Mesodinium rubrum", "Dinophysis acuta"),
aphia_ids = c(106306, 232069, 109604),
custom_groups = custom_groups, # Adding custom groups
verbose = FALSE
)
print(result_custom)
# }
Run the code above in your browser using DataLab