arrays - T 检验 3D 数组

Question

我有一个由 定义的 3D 数据数组，[i,j,k]并希望在第 3 维上执行单样本 t 检验[k]，测试与 0 的差异。理想情况下，结果将作为 t 大小的矩阵返回[i,j]。不幸的是，我事先不知道 3D 数组的大小。

set.seed(1999)
i <- 4; j <- 2; k <- 6
df <- runif((i*j*k))
ar <- array(df, c(i, j, k))

Answer 1

如果我理解正确，请尝试以下操作。

tt <- apply(ar, 1:2, t.test)
apply(tt, 1, function(x) lapply(x, identity))