```r
agg_aw = st_interpolate_aw(incongruent[, "value"], aggregating_zones,
                           extensive = TRUE)
#> Warning in st_interpolate_aw.sf(incongruent[, "value"],
#> aggregating_zones, : st_interpolate_aw assumes attributes are constant over
#> areas of x
# show the aggregated result
agg_aw$value
#> [1] 19.6 25.7
```