计算某些行的列总和

Question

我正在尝试使用以下代码在R中计算每5行的列总和：

df <- data.frame(count=1:10)

for (loop in (1:nrow(df)))
{df[loop,"acc_sum"] <- sum(df[max(1,loop-5):loop,"count"])}

但是我不喜欢这里的显式循环，我怎么修改它呢？谢谢。