引导统计信息的值

Question

我想将bootstrap统计值(原始,偏差和错误)的值放到一个单独的列表中 - 但我无法弄清楚如何做到这一点.

这是一个例子:

> library(boot)
> set.seed(123)
> mean.fun <- function(data, idx) { mean(data[idx]) }
> data <- boot(data=rnorm(100), statistic=mean.fun, R=999)
> names(data)
 [1] "t0"        "t"         "R"         "data"     
 [5] "seed"      "statistic" "sim"       "call"     
 [9] "stype"     "strata"    "weights"  
> data
ORDINARY NONPARAMETRIC BOOTSTRAP


Call:
boot(data = rnorm(100), statistic = mean.fun, R = 999)


Bootstrap Statistics :
    original   bias    std. error
t1* 0.09040591 0.004751773  0.08823615

现在,而不是文本,我想要实际值.显然data$t0是"原始",但我不知道如何获得偏见和错误的值.

---

此外,由于输入函数名给你的代码,我输入boost的R和从源代码复制片段,并试图寻找它在我的本地研发设施.但找不到任何东西.为什么,R不应该从本地存储中获取源代码？

Answer 1

std.error 和偏差不存储为引导对象的一部分。它是动态计算的（参见：https ://stat.ethz.ch/pipermail/r-help/2011-July/284660.html ）

对于您的情况，请尝试：

mean(data$t) - data$t0
sd(data$t)