R 用于计算平均值和标准偏差的循环函数

我想计算引导置信区间，所以我需要得到所有[，1][，1]元素之间的平均值，然后在[，1][，2]之间求平均值，然后在[，2][，1]之间求平均值，最后在[，2][，2]之间求平均值。如何编写循环函数来实现这一点？

我不确定是否正确理解了您的问题。 无论如何，试试这个：

, , 1

            [,1]       [,2]
 [1,] -25.893935 -25.893835
 [2,]   2.031909   2.032009
...

, , 2

             [,1]        [,2]
 [1,] -0.09662335 -0.09652335
 [2,]  0.51026535  0.51036535
....

, , 10

            [,1]       [,2]
 [1,]  0.3677403  0.3678403
 [2,]  0.3677403  1.4858461
....

, , 1

            [,1]       [,2]
 [1,] -25.893935 -25.893835
 [2,]   2.031909   2.032009
...

, , 2

             [,1]        [,2]
 [1,] -0.09662335 -0.09652335
 [2,]  0.51026535  0.51036535
....

, , 10

            [,1]       [,2]
 [1,]  0.3677403  0.3678403
 [2,]  0.3677403  1.4858461
....

dms <- dim(fit$boot.coef)
myfun <- function(i,j) mean(fit$boot.coef[i,j,])
outer(1:dms[1], 1:dms[2], FUN=Vectorize(myfun))