# NOT RUN {
map <- raster::raster(matrix(runif(400, 0, 1), 20, 20))
plotPA(map, th = 0.8)
# Custom colors
plotPA(map, th = 0.5, colors = c("#d8b365", "#018571"))
# Save the file
plotPA(map, th = 0.7, filename = "my_map", format = "ascii")
# }
Run the code above in your browser using DataLab