指定された条件が与えられたRの2つのベクトルの乱数の生成

Question

ベクトルAの番号が<の場合など、指定された条件で一様分布からランダムに引き出された値を含む2つのベクトルを作成します。その後、ベクトルBの数は、私はこのコードを使用しますが、私が正しく問題を理解する場合、これはあなたのために働く必要があるだけ

nrows = 20 
A = NaN*matrix(1, nrows, 1) 
B = NaN*matrix(1, nrows, 1) 

repeat { 
    A[] = round(runif(nrows, 10, 100), digits =2) 
    B[] = round(runif(nrows, 10, 100), digits =2) 
    if(A > 50 & B > 50) { 
    break 
    } 
} 

Answer 1

ベクトルの最初の要素に適用されるよりも大きい50

する必要があります：

nrows = 20 
A = NaN * matrix(1, nrows, 1) 
B = NaN * matrix(1, nrows, 1) 

for (i in 1:nrows) { 
    A[i] <- round(runif(1, 10, 100), digits = 2) 
    if (A[i] < 50) { 
    B[i] <- round(runif(1, 50, 100), digits = 2) 
    } else { 
    B[i] <- round(runif(1, 10, 100), digits = 2) 
    } 
}