r - R行列の条件付き演算からベクトルを作成します

Question

各列に条件文を適用して、行列からベクトルを作成したいと思います。条件ステートメントは、列のいずれかの値が固定しきい値を超える場合、ベクトルの値はその列の最後の行である必要があり、そうでない場合、ベクトルの値は0である必要があります。最終的には、行列と同じ列数のベクトルになるはずです。これを行う方法に関するヒントはありますか？

Answer 1

そんな感じ ？

mat <- matrix(rnorm(100),nrow=10,ncol=10)
apply(mat, 2, function(v) {
  ifelse (any(v > 0.7), v[length(v)],0)
})