如何根据条件从数组中删除一系列矩阵？

Question

如果我有一个数组定义为:

Q <- array(runif(48), c(4,4,3), dimnames=list(
  c("P","PO","C","T"), c("LL","RR","R","Y"), c("Jerry1", "Jerry2", "Jerry3")))

我想要做的是检查地址Q [1,4]的数组Q中的每个"Jerry_n"矩阵,如果Q [1,4]小于Q [1,1],那么我会喜欢删除那个Jerry矩阵.

非常感谢您提供任何帮助.

Answer 1

我认为

dropmat <- Q[1,4,] < Q[1,1,]
Q <- Q[,,!dropmat]

应该这样做......

编辑:将结果分配给原始.