FCSc_mean: Combining ex situ and in situ gap analyses

In GapAnalysis: Conservation Indicators using Spatial Information

Description

This function creates a final combined conservation score by averaging the FCSex and FCSin It also assigns priority categories based on quantitative results

Usage

FCSc_mean(FCSex_df, FCSin_df)

Arguments

FCSex_df	A data frame or a list object result of the function FCSex
FCSin_df	A data frameor a list object result of the function FCSin

Value

This function returns a data frame object with the following columns:

species	Species name
FCSex	Final conservation score ex situ
FCSin	Final conservation score in situ
FCS_min	Final conservation score (mininum value among FCSin and FCSex)
FCS_max	Final conservation score (maximum value among FCSin and FCSex)
FCSc_mean	Final conservation score combined (average value between FCSin and FCSex)
FCS_min_class	Final conservation category using FCS_min value
FCS_max_class	Final conservation category using FCS_max value
FCSc_mean_class	Final conservation category using FCSc_mean value

References

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

Examples

##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 shapefile
data(ecoregions)
#Running all three ex situ gap analysis steps using FCSex function
FCSex_df <- FCSex(Species_list=Cucurbita_splist,
                                      Occurrence_data=CucurbitaData,
                                      Raster_list=CucurbitaRasters,
                                      Buffer_distance=50000,
                                      Ecoregions_shp=ecoregions,
                                      Gap_Map=FALSE)

#Running all three in situ gap analysis steps using FCSin function
FCSin_df <- FCSin(Species_list=Cucurbita_splist,
                                      Occurrence_data=CucurbitaData,
                                      Raster_list=CucurbitaRasters,
                                      Ecoregions_shp=ecoregions,
                                      Pro_areas=ProtectedAreas,
                                      Gap_Map=FALSE)
## Combine gap analysis metrics
FCSc_mean_df <- FCSc_mean(FCSex_df = FCSex_df,FCSin_df = FCSin_df)

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