如果我将数组定义为:
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矩阵。
非常感谢您提供的任何帮助。
答案 0 :(得分:5)
我认为
dropmat <- Q[1,4,] < Q[1,1,]
Q <- Q[,,!dropmat]
应该这样做......
修改:将结果分配给原始文件。
答案 1 :(得分:2)
Q[,,Q[1,1,]<=Q[1,4,]]
这就是你想要的吗?
编辑:更新了不平等。