크랩스

R로 풀어보는 확률 퍼즐

Peter Chi

Assistant Professor of Statistics Villanova University

크랩스 소개

  • 패스 라인 베팅: 라운드 시작 시 거는 내기
  • 슈터가 먼저 굴립니다

첫 굴림:

  • 7 또는 11: 승
  • 2, 3, 12: 패
  • 그 외 값이면 포인트 설정
R로 풀어보는 확률 퍼즐

포인트가 설정되었을 때

craps.png

  • 슈터의 첫 굴림: 5 = 포인트
  • 슈터는 계속 굴립니다
  • 7보다 먼저 5가 나오면 패스 라인 승
  • 5보다 먼저 7이 나오면 패스 라인 패
  • 5 또는 7이 나올 때까지 굴립니다
R로 풀어보는 확률 퍼즐

while 반복문

roll <- 0

while(roll != 6){
  roll <- roll_dice(1)
  print(roll)
}

5
2
5
6
R로 풀어보는 확률 퍼즐

while의 복합 조건

roll <- 0

while( (roll != 6) & (roll != 5) ){
  roll <- roll_dice(1)
  print(roll)
}

2
4
5
R로 풀어보는 확률 퍼즐

%in% 연산자

roll <- roll_dice(1)
if(roll %in% c(2,4,6) ){
  print("The roll is even")
}

"The roll is even"

roll

2
R로 풀어보는 확률 퍼즐

크랩스를 해봅시다!

R로 풀어보는 확률 퍼즐

Preparing Video For Download...