單一 n 的模擬
房間人數為 50，先用模擬來找解答。
在這段程式碼中，n 代表房間的人數；match 是計數器，用來記錄在模擬中至少出現一次生日相同的次數。它從 0 開始，且在每次出現相同生日的迭代中遞增。
本練習屬於課程
R 的機率謎題
練習說明
- 填入
sample函式所需的參數，隨機為每位個體指定生日。 - 依條件遞增變數
match。 - 計算至少出現一次相同生日的估計機率。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
set.seed(1)
n <- 50
match <- 0
# Simulate 10000 rooms and check for matches in each room
for(i in 1:10000){
birthdays <- sample(___, ___, replace = ___)
if(length(unique(birthdays)) < n){
match <- ___
}
}
# Calculate the estimated probability of a match and print it
p_match <- ___
print(___)