だから私は統計の問題に取り組んでいて、質問は「6人の子供が並んでいます。名前のアルファベット順になっている確率はどれくらいですか?2人の子供が同じ正確な名前を持っていないと仮定してください。」また、Rでsample()関数とrle()関数を使用していますが、確率の計算方法について混乱しています。助けてもらえますか?
また、これは私がこれまでに持っているコードです:
kids <- sample(c("A", "B", "C", "D", "E", "F"), 6, replace = TRUE)
table(kids)
head(kids)
rle(c("A", "B", "C", "D", "E", "F"))
kids.rle <- rle(kids)
str(kids.rle)
sort(kids.rle$lengths, decreasing = TRUE)
@YOLOが述べたように、理論上の確率は1 / 720
、1 / factorial(6)
Rのように計算できます。ただし、これは頭の中で簡単に計算することもできます。小さなシミュレーションを実行して、繰り返しの数が増えるにつれて観測された確率が理論上の確率に収束することを示す場合は、計算能力が役立ちます。
kids_ordered <- c("A", "B", "C", "D", "E", "F")
n <- 1000000 # number of repetition
result <- rep(NA, n) # vector to hold outcomes
set.seed(147) # seed for reproducibility
# reorder kids n times and check if the outcome is in alphabetical order each time
for(i in seq_len(n)) {
result[i] <- all(sample(kids) == kids_ordered)
}
# compute the probability
mean(result)
# [1] 0.001376
結果は非常に近いです 1 / 720 = 0.001389
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加