# Construct some species id vector
spec_ids <- c(
rep(fe_species_ger_nfi_2012(c("170", "140", "120", "150")),
times = c(151, 231, 70, 122)
),
NA, NA, NA, NA
)
summary(spec_ids)
spec_ids |> summary()
spec_ids |> summary(spec_lang = "eng")
# Usual application: Set option for species code output
# Any summary of an fe_species object will use the last setting of the
# option
options(fe_spec_lang = "sci")
spec_ids |> summary()
Run the code above in your browser using DataLab