r - 配列から乱数を選択し、そのインデックスを返す

Question

私は確率の配列を持っています

A = c(0, 0, 1/3, 0, 1/3, 1/3)

私が使用している乱数式は次のとおりです。

sample(A, 1, replace=TRUE)

それは私に確率の1つを与えます。私が探しているのは、対応する確率のインデックス番号です。確率は繰り返される可能性があるため、選択された特定のインデックス番号を取得するにはどうすればよいでしょうか? また、0 の確率を選択できないようにする必要があります。

ありがとうございました。

Answer 1

基本的にこれを行う関数を作成します。

y <- 0 
while(y == 0) { 
  x <- sample(1:length(A), 1) 
  y <- A[x]
}
print(x)

一度に 1 つのサンプルしか取得していないため、replace = TRUE はこのコンテキストでは冗長です。