if (FALSE) {
file <- system.file("external/predictors.tif", package="usdm")
r <- rast(file) # reading a RasterBrick object including 4 rasters in the Netherlands
r
plot(r) # visualize the raster layers
sp.file <- system.file("external/species_nl.shp", package="usdm")
sp <- vect(sp.file)
splisa <- speciesLisa(x=r,y=sp,uncertainty=15000,weights=c(0.22,0.2,0.38,0.2))
splisa
plot(splisa)
bnd.file <- system.file("external/boundary.shp", package="usdm")
bnd <- vect(bnd.file) # reading the boundary map
plot(splisa,bnd)
}
Run the code above in your browser using DataLab