在 R 中的“启动”function 中，t0 的值与 t 的平均值不匹配

Question

我正在编写一个简单的 function 来估计使用比率估计器和数据集“iris”的统计值。 这是我的代码：

library(boot)
rat=function(data,index) 
{
  X=data[index,1]
  Y=data[index,2]
  return(mean(Y)/mean(X)*Xbar)
}
Xbar=mean(iris$Sepal.Length)
N=nrow(iris)
n=0.7*N
samp<-sample(1:N,n,replace = F)
iris_samp<-iris[samp,]
output<-boot(iris_samp,rat,R=1000)
mean(output$t)
output$t0 

我得到的结果是：

> mean(output$t)
[1] 3.057975
> output$t0
[1] 3.061799

我的印象是 t0 只是 t 的平均值，即每个样本的估计值。 但是，这两个值显然在这里不匹配。 我的编码不正确还是我的理解错误？

提前致谢！

Answer 1

$t0 是在原始数据上运行 lm 时的系数。 $t 是自举值。

在这里了解详情