行列の各行で特定の値が最初と最後に出現する列インデックスを決定する必要があります。たとえば、私のマトリックスが次の場合:
0 10 10 10 0 0
10 10 10 0 0 0
0 0 0 0 10 10
そして、各行の最初の 10 の列インデックスを含むベクトルと、最後の出現のベクトルが必要です。結果のベクトルは、それぞれ(2,1,5)とになり(4,3,6)ます。
最初のオカレンスを見つけるために適用関数で使用する次の関数を作成しました。
Myfunc <- function(x){which==10)[1]
Myfirst <- apply(x,1,Myfunc)
ただし、最終的な発生のベクトルを取得する方法がわかりません。誰かが関数を使用してこれを行う方法を教えてくれますか、which()または別の方法を提案できますか?