使用循环＆＃34;对于＆＃34;按行中的行子集数据。

Question

我有7列和21行的数据，我想创建for循环。 我想计算第10行中此数据中第一列的平均值。然后我想计算从2到11，然后从3到12以及从11到20行的最后一行的第二次平均值。我尝试通过以下代码执行此操作：

sredniaa <- array(0, 11)

for(j in 1:11) {
  sredniaa[j]<-mean(wartdop1[j:j+9,1])
}

但它不起作用。谁知道怎么做？我的数据在图片上：