我有一个由[i,j,k]定义的3D数据数组,并希望在第三维[k]上执行单个样本t测试,测试与0的差异。理想情况下,结果将以大小为[i,j]的t值矩阵的形式返回。不幸的是,我事先不知道3D数组的大小。
set.seed(1999)
i <- 4; j <- 2; k <- 6
df <- runif((i*j*k))
ar <- array(df, c(i, j, k))发布于 2017-08-29 00:43:12
如果我理解正确,请尝试以下方法。
tt <- apply(ar, 1:2, t.test)
apply(tt, 1, function(x) lapply(x, identity))https://stackoverflow.com/questions/45923343
复制相似问题