Craps

Casse-têtes de probabilité en R

Peter Chi

Assistant Professor of Statistics Villanova University

Introduction au craps

  • Mise « pass line » – pari placé au début d'une manche
  • Le lanceur effectue le premier jet

Premier jet :

  • 7 ou 11 : pari gagné
  • 2, 3, 12 : pari perdu
  • Toute autre valeur établit le point
Casse-têtes de probabilité en R

Quand un point est établi

table de craps

  • Premier jet du lanceur : 5 = point
  • Le lanceur continue de lancer
  • Si 5 sort avant 7 : mise « pass line » gagnée
  • Si 7 sort avant 5 : mise « pass line » perdue
  • Le lanceur continue jusqu'à 5 ou 7
Casse-têtes de probabilité en R

Boucle while

roll <- 0

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

5
2
5
6
Casse-têtes de probabilité en R

Condition composée dans une boucle while

roll <- 0

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

2
4
5
Casse-têtes de probabilité en R

L'opérateur %in%

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

"The roll is even"

roll

2
Casse-têtes de probabilité en R

Jouons au craps !

Casse-têtes de probabilité en R

Preparing Video For Download...