Рассчитать среднее значение для каждой ячейки сетки в R

Question

Возможный дубликат:
Функция раздвижного окна в R

Это может быть глупый вопрос, но я пока не смог найти ответ. У меня есть фрейм данных, как это:

df <- data.frame(lat = (-10: 10),
                 lon = (-10: 10),
                 A = runif(21, 1 ,10),
                 B = runif(21, 20 ,30))

где lat и lon - географические координаты, а A и B - две непрерывные переменные. Я хотел бы создать сетку 5 на 5 и рассчитать среднее значение A и B в каждой ячейке сетки. Вот подход, который я пытаюсь, но безуспешно...

library(raster)
library(maptools)

coordinates(df) <- ~ lat + lon
rast <- raster(ncol = 5, nrow = 5)
extent(rast) <- extent(df)
rasterize(df, rast, df$A, fun = mean)