ループにコードを連結

Question

私は以下のコードをRに書いていますが、これは私がやろうとしていることを成し遂げますが、ループで効率を上げて、このテストのサンプルを10000回繰り返し実行する必要がありますデータ。

私は両方のテストを行う必要があるので、データセットを使用してください。

PerfectMate <- sample(1:20,20,replace = FALSE,prob = NULL) 
date.mode <- PerfectMate[1:3] 
marry.mode <- PerfectMate[4:20] 

PerfectMate <- c(2,1,16,8,6,3,15,5,9,12,17,4,13,14,10,20,19,7,18,11) 
date.mode <- PerfectMate[1:3] 
marry.mode <- PerfectMate[4:20] 

if (marry.mode[1] < min(date.mode)) {marry.rank <- marry.mode[1]} else { 
if (marry.mode[2] < min(date.mode)) {marry.rank <- marry.mode[2]} else { 
    if (marry.mode[3] < min(date.mode)) {marry.rank <- marry.mode[3]} else { 
    if (marry.mode[4] < min(date.mode)) {marry.rank <- marry.mode[4]} else { 
    if (marry.mode[5] < min(date.mode)) {marry.rank <- marry.mode[5]} else { 
     if (marry.mode[6] < min(date.mode)) {marry.rank <- marry.mode[6]} else { 
     if (marry.mode[7] < min(date.mode)) {marry.rank <- marry.mode[7]} else { 
      if (marry.mode[8] < min(date.mode)) {marry.rank <- marry.mode[8]} else { 
      if (marry.mode[9] < min(date.mode)) {marry.rank <- marry.mode[9]} else { 
       if (marry.mode[10] < min(date.mode)) {marry.rank <- marry.mode[10]} else { 
       if (marry.mode[11] < min(date.mode)) {marry.rank <- marry.mode[11]} else { 
        if (marry.mode[12] < min(date.mode)) {marry.rank <- marry.mode[12]} else { 
        if (marry.mode[13] < min(date.mode)) {marry.rank <- marry.mode[13]} else { 
         if (marry.mode[14] < min(date.mode)) {marry.rank <- marry.mode[14]} else { 
         if (marry.mode[15] < min(date.mode)) {marry.rank <- marry.mode[15]} else { 
          if (marry.mode[16] < min(date.mode)) {marry.rank <- marry.mode[16]} else { 
          if (marry.mode[17] < min(date.mode)) {marry.rank <- marry.mode[17]} else { 
           marry.rank <- NA } 
} } } } } } } } } } } } } } } } 
marry.rank 

Answer 1

次のやろうとしているように見えます：

idxs <- which(marry.mode < min(date.mode)) 
marry.rank <- if (length(idxs) > 0) marry.mode[idxs[1]] else NA 

注：答えを考慮する@ r2evansによってコメントで提案を取って書き直された（下記参照）。以前はifelseが使用されていました。