# Create an fe_species_ger_nfi_2012 object
spec_ids <- fe_species_ger_nfi_2012(
as.character(c(10, 20, 30, 40, 50, 100, 110, 120, 130, 140, 150, 170))
)
# Display in default style, scientific names, English, and German names
format(spec_ids)
format(spec_ids, spec_lang = "sci")
format(spec_ids, spec_lang = "eng")
format(spec_ids, spec_lang = "ger")
# Usual application: Set option for species code output
# Any print of an fe_species object will use the last setting of the option
options(fe_spec_lang = "eng")
spec_ids
Run the code above in your browser using DataLab