Le modèle de von Neumann

Casse-têtes de probabilité en R

Peter Chi

Assistant Professor of Statistics Villanova University

Variables aléatoires uniformes

Chaque « main » est tirée d'une distribution Uniforme(0,1).

runif(n, min = 0, max = 1)

runif(n = 1)

0.5888486

playerA <- runif(n = 1)
playerB <- runif(n = 1)
playerA > playerB

TRUE

 

 

playerA

0.6575921

playerB

0.3587836
Casse-têtes de probabilité en R

Parier avec le modèle de von Neumann

Le joueur B observe la valeur et décide de miser 1 $ ou non

  • Si mise : on compare les valeurs. La plus élevée gagne 1 $ à l'autre joueur
  • Sinon : aucun gain ni perte pour les deux joueurs
Casse-têtes de probabilité en R

La fonction ifelse

# La condition est vraie
x <- 4
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2

# La condition est fausse
x <- (-4)
result <- ifelse(x > 0, sqrt(x), sqrt(-x))
result

2
Casse-têtes de probabilité en R

La fonction mean, revisité

values <- replicate(10, roll_dice(3))
values

5 10 14  5 12 12  4 15  7  9

 

mean(values)

9.3
Casse-têtes de probabilité en R

À vous de jouer !

Casse-têtes de probabilité en R

Preparing Video For Download...