if (FALSE) {
#Loading required packages
library(MetaLandSim)
#Loading the range expansion simulation output and required rasters
data(rg_exp)
presences <- system.file("examples/presences.asc", package="MetaLandSim")
mask <- system.file("examples/landmask.asc", package="MetaLandSim")
range.map <- range_raster(presences.map=presences, re.out=rg_exp, mask.map=mask, plot = FALSE)
#Ploting the results with the terra package
plot(range.map)
#Ploting the results with the rasterVis package
require(rasterVis)
levelplot(range.map, contour=TRUE)
}
Run the code above in your browser using DataLab