add missing bracket to gap score function

This commit is contained in:
DimitraVeropoulou 2026-02-11 14:44:09 +01:00
parent 97d1ea33f1
commit 613b35fc59

View file

@ -375,7 +375,7 @@ calculate_gap_filling_kpi <- function(ci_raster, field_boundaries) {
if (n_fields_sf != n_fields_vect) { if (n_fields_sf != n_fields_vect) {
warning(paste("Field boundary mismatch: nrow(field_boundaries)=", n_fields_sf, "vs length(field_boundaries_vect)=", n_fields_vect, ". Using actual SpatVector length.")) warning(paste("Field boundary mismatch: nrow(field_boundaries)=", n_fields_sf, "vs length(field_boundaries_vect)=", n_fields_vect, ". Using actual SpatVector length."))
} }
field_results <- data.frame() field_results <- data.frame()
for (i in seq_len(nrow(field_boundaries))) { for (i in seq_len(nrow(field_boundaries))) {
@ -423,6 +423,7 @@ calculate_gap_filling_kpi <- function(ci_raster, field_boundaries) {
)) ))
} }
} }
}