使用R中的apply函数进行2个样本t检验

Question

我想知道是否可以使用R对模拟数据进行两个样本t检验，使用apply函数。我知道这可以使用for循环。但我正在尝试使用应用功能。

到目前为止，这是什么，

set.seed(26581) 

data.simu1 = replicate(n=2, rnorm(20,mean=10,sd=2))
data.simu2 = replicate(n=2, rnorm(10,mean=10,sd=2))

apply(data.simu1, 2, function(data.simu1) 
      t.test(data.simu1, data.simu2, var.equal = T)$p.value)

虽然这没有任何错误，但我知道这是错误的，因为我从下面的代码得到的答案与我上面的不同。

t.test(data.simu2[,1],data.simu1[,1],alternative="two.sided",var.equal = T)$p.value

t.test(data.simu2[,2],data.simu1[,2],alternative="two.sided",var.equal = T)$p.value

任何人都可以帮我找出差异吗？