提取R中的多个下矩阵

假设我有以下数组

npso<-array(seq(1:12), c(10, 10, 3125))

例如，

nps

的第一行将是我的第一个矩阵的较低元素。我相信这个任务可以通过

apply

系列来完成，但我不知道如何完成。

也许

t（apply（npso，3，函数（m）m[lower.tri（m，diag=FALSE）]）

？您应该提供一个较小的示例和预期的输出。

for (i in 1:k) {
  for (j in 1:k) {
    if (j<=i) {
      next
    } else {
      nps[,jk] = npso[i,j,]
      jk = jk + 1
    }
  }
}