Rで、44回投げられた偏った6面のダイをシミュレートするコードを理解したいと思います。 番号は、他の個数と同じように数字の6が2倍であるという意味で偏っています。 Rを使って偏った6面のダイスをシミュレートする
私は偏ったダイスのためにこれを行うことができますが、これは何をするべきかわかりません。あなたはあなたの選択の非等確率設定にreplace=TRUEとprob -argumentセットの両方を必要とする
おかげ
。
throws <- sample(1:6, 44, replace=TRUE, prob=c(1,1,1,1,1,2)/7)
# Two realizations
> throws <- sample(1:6, 44, replace=TRUE, prob=c(1,1,1,1,1,2)/7)
> table(throws)
throws
1 2 3 4 5 6
10 5 8 7 3 11
> throws <- sample(1:6, 44, replace=TRUE, prob=c(1,1,1,1,1,2)/7)
> table(throws)
throws
1 2 3 4 5 6
7 3 4 8 7 15
結果はまだ（擬似）-randomであり、それは確率の素朴な学生が期待するかもしれないものからの逸脱を持ってすることは可能だということに注意してください。そして、私は、複数形である「サイコロ」ではなく、1つのダイであるという児童の訂正に抵抗することはできません。
問題への素晴らしい応答に感謝します。私はほとんどの作業を理解していますが、その過程で/ 7がなぜ疑問に思っていますか？ –
実際には必要ありません。確率を1にするように私はそれを入れますが、デフォルトの振る舞いはとにかく行います（苦情なしで実行されるTelfordの答えによって示されます）。 –
sample(1:6, size = 44, replace = TRUE, prob = c(rep(1, 5), 2))
サンプルを使用して、各番号に確率を指定できます。
sample(x = 1:6, size = 44, replace = T, prob = c(rep(1/7, 5), 2/7))
sampleの 'prob'引数を参照してください。 'prob = c（1,1,1,1,1,2）'を使うと、必要なものが得られます。 – Benjamin