我试图通过自举和t检验计算p值来确定两个样本集之间是否存在显着差异。但是，当我进行自举时，我得到p = 0.49，当我使用t检验时，得到7.015e-11。我很困惑为什么两个p值之间存在如此大的差异。下面是我的bootstrap的代码：
diff <- function(data, k) {
s = data[, 1:25]
n = data[, 26:100]
mean <- tapply(s[, k], n[, k], mean)
mean[1] - mean[2]
}
b = boot(d, diff, 10000)
p = mean(abs(b$t) > abs(b$t0))