Suma blokowa elementów macierzy

Chcę przejść od czegoś takiego:

1> a = matrix(c(1,4,2,5,2,5,2,1,4,4,3,2,1,6,7,4),4)
1> a
     [,1] [,2] [,3] [,4]
[1,]    1    2    4    1
[2,]    4    5    4    6
[3,]    2    2    3    7
[4,]    5    1    2    4

Do czegoś takiego:

     [,1] [,2]
[1,]   12   15
[2,]   10   16

... bez użycia pętli for-loops, plyr lub bez pętli. Możliwy? Próbuję zmniejszyć geograficzny zbiór danych lat / long z 5 minut łuku do połowy stopnia, a ja mam siatkę ascii. Mała funkcja, w której określam rozmiar bloku, byłaby świetna. Mam setki takich plików, więc rzeczy, które pozwalają mi to zrobić szybko bez równoległości / superkomputerów, byłyby bardzo mile widziane.

questionAnswers(3)

yourAnswerToTheQuestion