r - R でループ出力を取得する

Question

私はRが初めてで、ループを扱っています。s1 (NA 値を含む) と B の 2 つの行列があります。このループを試してみましたが、出力の取得に問題がありました。

m1<-function(s1,B)
 {
  for(i in 1:nrow(s1))
  { 
   if(is.na(s1[i,])==T) {mi<-rbind(mi,B[i,])}
  }
  print(mi)
 }
outB<-m1(s1,B)

B[i,] の行バインディングから新しい data.matrix を作成したいと思います。B[i,] は s1[i,] と一致する必要があります。どんな助けでも大歓迎です。