# NOT RUN {
##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)
#Running SRSin
SRSin_df <- SRSin(Species_list = Cucurbita_splist,
Occurrence_data = CucurbitaData,
Raster_list=CucurbitaRasters,
Pro_areas=ProtectedAreas,
Gap_Map=FALSE)
# }
Run the code above in your browser using DataLab