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

时间:2012-04-24 20:07:58

标签: arrays r matrix

如果我将数组定义为:

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矩阵。

非常感谢您提供的任何帮助。

2 个答案:

答案 0 :(得分:5)

我认为

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

应该这样做......

修改:将结果分配给原始文件。

答案 1 :(得分:2)

Q[,,Q[1,1,]<=Q[1,4,]]

这就是你想要的吗?

编辑:更新了不平等。