# Libraries required for the following two examples
library(dplyr)
library(purrr)
# Look up the tum_wwk_long species codes for all supported species
# the column species_id contains the tum_wwk_long codes
species_codings |>
filter(species_coding == "tum_wwk_long") |>
pluck(2, 1) |>
arrange(as.numeric(species_id)) |> # just for the look of it
print(n = Inf)
# Display a summary table which shows the number of single species behind
# each tum_wwk_long species code
species_codings |>
filter(species_coding == "tum_wwk_long") |>
pluck(2, 1) |>
group_by(name_eng, species_id) |> # display english names
summarise(n = n()) |>
arrange(as.numeric(species_id)) |> # just for the look of it
print(n = Inf)
# Make an fe_species_tum_wwk_long vector from a vector of integer codes
spec_ids <- fe_species_tum_wwk_long(
c(10, 10, 10, 20, 20, 20, 50, 50, 811, 811, 811, 891)
)
Run the code above in your browser using DataLab