擲骰賭博（Craps）

R 的機率謎題

Peter Chi

Assistant Professor of Statistics Villanova University

Craps 入門

  • Pass line 注：回合開始時下的賭注
  • 擲骰者先擲

第一次擲骰：

  • 出 7 或 11：贏注
  • 出 2、3、12：輸注
  • 其他點數則建立點數（point）
R 的機率謎題

建立點數之後

擲骰賭博桌面

  • 首擲出 5：建立點數
  • 擲骰者持續擲
  • 若在出 7 前先出 5：Pass line 贏
  • 若在出 5 前先出 7：Pass line 輸
  • 持續擲到出 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 的機率謎題

來玩一局 Craps！

R 的機率謎題

Preparing Video For Download...