将t检验结果与扫帚

Question

我正在尝试重复采样两个向量x和y，100次并在每个样本后计算t检验。然后，我想使用broom包将结果合并到数据框中。我这样做的尝试如下。但是，我设法做的就是对相同的两个向量进行100次t检验。

library(plyr); library(broom)

x <- rnorm(10000, 3, 3)
y <- rnorm(10000, 5, 3)


x_sample <- sample(x, size = 20, replace = FALSE)
y_sample <- sample(y, size = 20, replace = FALSE)

ldply(1:100, function(x) tidy(t.test(x_sample, y_sample)))

Answer 1

我们可以将replicate与mapply一起使用。我们为'x'和'y'复制sample n次，并使用t.test为list元素执行mapply，然后{ {1}}输出。

tidy