Симуляция для одного значения 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(___)