クラップス

Rで解く確率パズル

Peter Chi

Assistant Professor of Statistics Villanova University

クラップス入門

最初のロール:

クラップスの卓

roll <- 0

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

roll <- 0

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

2
4
5

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

"The roll is even"

roll

Rで解く確率パズル