条件式のRでsample（）を使用する

Question

Aの各番号にBの乱数を割り当てたい。 の条件は、Bの割り当てられた数値がAの対応する数より大きくなければならないという条件である。 ここに私のコードです。 これを行う方法はありますか？
私は最悪の結果でforループと他の方法を試しました！ ありがとう！

set.seed(123) 
A <- rlnorm(10000,5,1) 
B <- rlnorm(100000,10,2) 
df <- data.frame(NumPol=1:length(B), Cap=B) 

pol_sel <- sapply(1:length(A), FUN = function(i) { 
sample(df$NumPol[which(df$Cap > A[i])], size=1, replace=TRUE) }) 

Answer 1

私は私が正しくあなたの質問を理解してわからないんだけど、多分あなたはこれに似た何かしたい：これはBの要素から1つのインスタンスをサンプリングし、Aの各要素aに対して

set.seed(123) 
A <- sample(10000, 10000) 

rnd.sample <- function(x) { 
    i <- 1 
    B <- c() 
    for (i in 1:length(x)) { 
    success <- FALSE 
    while(success == FALSE) { 
     s <- sample(100000, 1) 
     if (s > x[i]) { 
     success <- TRUE 
     B[i] <- s 
     i <- i + 1 
     } else {} 
    } 
    } 
    return(data.frame(A = x, B)) 
} 

head(rnd.sample(A), 10) 
#  A  B 
# 1 2876 31060 
# 2 7883 32453 
# 3 4089 87026 
# 4 8828 32868 
# 5 9401 12571 
# 6 456 35623 
# 7 5278 93070 
# 8 8918 87518 
# 9 5510 82022 
# 10 4563 63124 

Answer 2

をそれは十分に速くはない場合、あなたはmclapplyの代わりを使用することができます

sapply(A, function(a) sample(B[B > a], size = 1, replace = TRUE)) 

：aはで与えられるよりも大きくなっていますを並列化してください（これはreplace = TRUEを使用しており、サンプリングは独立しているので問題ありません）。