R乘以特定行范围的均值

Question

我有一个带data.frame / table的表>

dim(Tn) 
# 43 rows, 30 columns
我正在尝试为每一列计算5值均值（因此每列39均值，其中均值计算为

(row-4) : row
就像在这里的图片：

运行循环时：

test <- for (j in 2:ncol(Tn)){
          for (i in 5:nrow(Tn)){
              mean(Tn[(i-4):i,j])
}   }
我得到的结果为NULL。如何编写此循环以获取所有情况下(nrow(Tn)-4)的每一列的5值均值表？

我有一个带dim（Tn）＃43行，30列的data.frame / table，我正在尝试为每一列计算5值均值（因此每列39均值），其中均值的计算方式为（第4行） ）：在...

Answer 1

您需要可以使用zoo::rollmean计算的滚动平均值。尝试