주어진 5년 구간에 대한 확률 시뮬레이션
이제 이전 문제에서 만든 check_for_five 함수를 사용해 5년을 10000회 반복 시뮬레이션해 보며, Ronnie Bardah의 5년 연속 캐시 기록이 얼마나 드문 일인지 가늠해 보겠습니다. 다시 한 번, 총 플레이어 수는 6000명이고, 그중 10%인 600명이 매년 캐시한다고 가정합니다.
이 연습은 강의의 일부입니다
R로 풀어보는 확률 퍼즐
연습 안내
- 5개 연도 각각에서 누가 캐시했는지에 대한 결과 행렬을 만드세요. 총 플레이어는 6000명, 매년 600명이 캐시한다고 가정합니다.
- 어떤 플레이어가 5년 모두에서 캐시했는지 확인하는 조건을 채우세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
players <- c(1:6000)
count <- 0
for(i in 1:10000){
# Create matrix of cashing players
cashes <- ___
# Check for five time winners
if(___){
count <- count + 1
}
}
print(count/10000)