FCSin: Final conservation score in situ

Description Usage Arguments Value References Examples

View source: R/FCSin.R

Description

This function calculates the average of the three in situ conservation metrics and assigns a priority category based on the results

Usage

1
2
3
4
5
6
7
8
FCSin(
  Species_list,
  Occurrence_data,
  Raster_list,
  Ecoregions_shp = NULL,
  Pro_areas = NULL,
  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.

Ecoregions_shp

A shapefile representing Ecoregions_shp information with a field ECO_NUM representing Ecoregions_shp Ids.If Ecoregions_shp=NULL the funtion will use an ecoregions shapefile provided for your use

Pro_areas

A raster file representing protected areas information.If Pro_areas=NULL the funtion will use a protected area raster file provided for your use after run GetDatasets()

Gap_Map

logical, if TRUE the function will calculate gap maps for each species analyzed and will return a list with four slots FCSin, SRSin_maps,GRSin_maps,and ERSin_maps

Value

This function returns a data frame summarizing the in situ gap analysis scores:

species Species name
SRSin Sampling representativeness score in situ
GRSin Geographical representativeness score in situ
ERSin Ecological representativeness score in situ
FCSin Final conservation score in situ

References

Khoury et al. (2019) Diversity and Distributions 26(2):209-225. doi: 10.1111/DDI.13008

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
##Obtaining occurrences from example
data(CucurbitaData)
##Obtaining species names from the data
Cucurbita_splist <- unique(CucurbitaData$species)
##Obtaining Raster_list
data(CucurbitaRasters)
CucurbitaRasters <- raster::unstack(CucurbitaRasters)
##Obtaining protected areas raster
data(ProtectedAreas)
##Obtaining Ecoregions_shpions shapefile
data(ecoregions)
#Running all three In-situ gap analysis steps using a unique function
FCSin_df <- FCSin(Species_list=Cucurbita_splist,
                                      Occurrence_data=CucurbitaData,
                                      Raster_list=CucurbitaRasters,
                                      Ecoregions_shp=ecoregions,
                                      Pro_areas=ProtectedAreas,
                                      Gap_Map=FALSE)

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