У вас есть вектор, а не массив. Вы можете использовать функцию rollapply
из пакета zoo, чтобы получить то, что вам нужно.
> x <- c(1, 2, 3, 10, 20, 30)
> #library(zoo)
> rollapply(x, 3, sum)
[1] 6 15 33 60
Взгляните на ?rollapply
для получения дополнительной информации о том, что делает rollapply
и как его использовать.