GRSex: Geographical representativeness score ex situ

Description Usage Arguments Value References Examples

View source: R/GRSex.R

Description

The GRSex process provides a geographic measurement of the proportion of a species’ range that can be considered to be conserved in ex situ repositories. The GRSex uses buffers (default 50 km radius) created around each G coordinate point to estimate geographic areas already well collected within the distribution models of each taxon, and then calculates the proportion of the distribution model covered by these buffers.

Usage

1
2
3
4
5
6
7
GRSex(
  Species_list,
  Occurrence_data,
  Raster_list,
  Buffer_distance = 50000,
  Gap_Map = FALSE
)

Arguments

Species_list

A vector of characters with the species names to calculate the GRSex metrics.

Occurrence_data

A data frame object with the species name, geographical coordinates, and type of records (G or H) for a given species

Raster_list

A list of rasters representing the species distribution models for the species list provided in Species_list. The order of rasters in this list must match the same order as Species_list.

Buffer_distance

Geographical distance used to create circular buffers around germplasm. Default: 50000 (50 km) around germplasm accessions (CA50)

Gap_Map

logical, if TRUE the function will calculate gap maps for each species analyzed and will return a list with two slots GRSex and gap_maps. If any value is provided, the function will assume that Gap_Map = TRUE

Value

This function returns a data frame with two columns:

species Species name
GRSex GRSex value calculated

References

Ramirez-Villegas et al. (2010) PLOS ONE, 5(10), e13497. doi: 10.1371/journal.pone.0013497 Khoury et al. (2019) Ecological Indicators 98:420-429. doi: 10.1016/j.ecolind.2018.11.016

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
##Obtaining occurrences from example
data(CucurbitaData)
Cucurbita_splist <- unique(CucurbitaData$species)
## Obtaining rasterList object. ##
data(CucurbitaRasters)
CucurbitaRasters <- raster::unstack(CucurbitaRasters)
#Running GRSex
GRSex_df <- GRSex(Species_list = Cucurbita_splist,
                    Occurrence_data = CucurbitaData,
                    Raster_list = CucurbitaRasters,
                    Buffer_distance = 50000,
                    Gap_Map = TRUE)

GapAnalysis documentation built on June 14, 2021, 9:07 a.m.