Gets weighted endemism

This function calculates the weighted endemism for each site in a given space

Usage

get_weighted_endemism(species_list, space)

Arguments

species_list

a list of species to include in the calculations.

space

the space to calculate over.

Value

a named vector with the weighted endemism (values) for each site (names).

See also

vignette("h-support-functions", package = "gen3sis2")

Examples

if (FALSE) { # \dontrun{
  # mock simulation state
  space <- system.file("extdata/SouthAmerica/species_and_spaces/space_t_2.rds", package = "gen3sis2") |> readRDS()
  
  all_species <- system.file("extdata/SouthAmerica/species_and_spaces/species_t_2.rds", package = "gen3sis2") |> readRDS()
  
  data <- list(
    space = space,
    all_species = all_species
  )
  
  get_weighted_endemism(data$all_species, data$space)[255:259]
} # }