arrays - 条件に基づいて配列から一連の行列を削除するにはどうすればよいですか?

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, ] より小さい場合は、そのジェリーマトリックスを削除したい。

あなたが提供できる助けを前もって本当にありがとう。

Answer 1

おもう

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

やるべき...

edit : 結果をオリジナルに割り当てます。

Answer 2

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

それはあなたが望むものですか？

編集：不等式を更新しました。