# Passes validation
spec_ids <- as.character(c(30, 30, 30, 10, 10, 10, 10, 20, 20, 290))
spec_ids <- new_fe_species_ger_nfi_2012(spec_ids)
validate_fe_species_ger_nfi_2012(spec_ids)
# Validating the following spec_ids throws an error due to
# non-supported species codes
spec_ids <- as.character(c(30, 30, 542, 10, 10, 10, 1234, 20, 20, 290))
spec_ids <- new_fe_species_ger_nfi_2012(spec_ids)
try(
validate_fe_species_ger_nfi_2012(spec_ids)
)
Run the code above in your browser using DataLab