# NOT RUN {
# Read example 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"
# Generate obs and pred binary vectors
validate_fire_danger_levels(fire_index = r_risico,
observation = r_risico * 2,
fire_threshold = 0.5,
obs_threshold = 0.5)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab