跨行数据帧中加权平均值的引导

问：

我有一个关于加权均值自举的问题。

根据我的数据结构，我有时想跨列引导，有时跨行引导。

在另一篇博文（R 中的引导加权平均值）中，提供了以下代码来引导跨列的加权平均值：

library(boot)

samplewmean <- function(d, i, j) {
    d <- d[i, ]
    w <- j[i, ]
    return(weighted.mean(d, w))   
  }

results_qsec <- boot(data= mtcars[, 7, drop = FALSE], 
                     statistic = samplewmean, 
                     R=10000, 
                     j = mtcars[, 6 , drop = FALSE])

这非常有效（检查：weighted.mean（mtcars[，7]， mtcars[，6]）。

但是，我现在还想跨行引导，我认为以下代码可以做到这一点：

samplewmean2 <- function(d, i, j) {
    d <- d[, i]
    w <- j[, i]
    return(weighted.mean(d, w))   
  }

results_qsec2 <- boot(data= mtcars[7,  , drop = FALSE], 
                     statistic = samplewmean2, 
                     R=10000, 
                     j = mtcars[6,  , drop = FALSE])

不幸的是，这不起作用，我不知道我应该改变什么？

提前非常感谢。