Как получить сумму каждых четырех строк матрицы в R

У меня есть матрица размером 4n на m (суммы с интервалом в 7,5 минут в течение года). Я хотел бы преобразовать их в 30-минутные суммы, например преобразовать матрицу 70080 x 1 в матрицу 17520.

Каков наиболее эффективный с вычислительной точки зрения способ сделать это?

Более конкретная информация: вот пример (сокращенный до одного дня вместо одного года)

library(lubridate)
start.date <- ymd_hms("2009-01-01 00:00:00")
n.seconds    <- 192 # one day in seconds
time <- start.date + c(seq(n.seconds) - 1) * seconds(450)

test.data <- data.frame(time = time, 
                        observation = sin(1:n.seconds / n.seconds * pi))

R-версия: 2,13; Платформа: x86_64-pc-linux-gnu (64-разрядная)