패스 라인 베팅 승리 확률
이번에는 앞에서 만든 함수들을 사용해 Craps 게임 10,000판을 시뮬레이션하고 패스 라인 베팅에서 이길 확률을 추정해 보겠습니다. 이전에 작성하신 roll_dice와 evaluate_first_roll() 함수는 이 연습 문제에서 바로 사용할 수 있도록 미리 로드되어 있습니다. evaluate_first_roll() 함수는 슈터의 첫 번째 굴림 값을 입력으로 받아, 이후에 어떤 일이 일어나야 하는지를 결정한다는 점을 기억하세요.
이 연습은 강의의 일부입니다
R로 풀어보는 확률 퍼즐
연습 안내
- 슈터의 첫 번째 굴림을 위해 주사위 두 개를 굴리는 시뮬레이션을 수행하세요.
- 첫 번째 굴림의 값을 사용해 패스 라인 베팅이 승리인지 패배인지 판단하고, 결과를
won벡터에 저장하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000