Inverse Distance Weighting method (IDW)

r_idw <-
  grid |>
  interpolate(idw) |>
  subset("var1.pred") |>
  mask(map)