Імітація для одного 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(___)

Редагувати та запускати код