r - R简单帮助中的 Bootstrap 包

Question

如果我想使用R的boot()包中的boot函数来计算两个向量之间的Pearson相关系数的显着性，我应该这样做吗:

boot(re1, cor, R = 1000)

re1是这两个观察向量的两列矩阵吗？我似乎无法正确理解，因为这些向量的 cor是 0.8，但是上述函数将 -0.2返回为 t0。

Answer 1

尽管@caracal已经通过他的评论回答了您的问题，但只是为了强调R中自举的一般思路。使用boot时，您需要具有可以按行采样的数据结构(通常是矩阵)。统计信息的计算通常在一个函数中完成，该函数接收此数据矩阵并返回在重采样后计算出的关注统计信息。然后，您调用boot()，它负责将此函数应用于R复制并以结构化格式收集结果。可以依次使用boot.ci()评估这些结果。

这是low birth baby包中的MASS研究的两个工作示例。

require(MASS)
data(birthwt)
# compute CIs for correlation between mother's weight and birth weight
cor.boot <- function(data, k) cor(data[k,])[1,2]
cor.res <- boot(data=with(birthwt, cbind(lwt, bwt)), 
                statistic=cor.boot, R=500)
cor.res
boot.ci(cor.res, type="bca")
# compute CI for a particular regression coefficient, e.g. bwt ~ smoke + ht
fm <- bwt ~ smoke + ht
reg.boot <- function(formula, data, k) coef(lm(formula, data[k,]))
reg.res <- boot(data=birthwt, statistic=reg.boot, 
                R=500, formula=fm)
boot.ci(reg.res, type="bca", index=2) # smoke