# NOT RUN {
r <- raster::raster(system.file("extdata","AETI.tif",package = "sdmApp"))
r2 <- r > raster::cellStats(r, stat='mean', na.rm=TRUE)
r <- r/raster::maxValue(r)
names(r) <- "propability of occurence"
z<-sdmApp_TimesRasters(r,r2)
sdmApp_RasterPlot(z)
# }
Run the code above in your browser using DataLab