단일 n에 대한 시뮬레이션
방의 인원이 50명일 때, 시뮬레이션으로 해답을 구해 보겠습니다.
이 코드에서 n은 방의 인원 수를 나타내고, match는 시뮬레이션에서 적어도 한 쌍의 생일이 일치한 횟수를 세는 카운터입니다. match는 0에서 시작하며, 일치가 발생한 각 반복에서 1씩 증가해야 합니다.
이 연습은 강의의 일부입니다
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(___)