# NOT RUN {
# Read RISICO test data
r_risico <- readRDS(system.file("extdata", "RISICO_raster.rds",
package = "caliver"))
# Set missing crs
raster::crs(r_risico) <- "+proj=longlat +datum=WGS84 +no_defs"
# Read dummy polygon
shape <- as(raster::extent(6, 18, 35, 47), "SpatialPolygons")
# Set missing crs
raster::crs(shape) <- "+proj=longlat +datum=WGS84 +no_defs"
get_perc_risk_index(b = r_risico, poly = shape, perc_val = 75, mod = "gt")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab