Le modèle de von Neumann

Énigmes de probabilité en R

Peter Chi

Assistant Professor of Statistics Villanova University

Variables aléatoires uniformes

Chaque « main » est tirée d'une loi 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

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

Si B mise, les joueurs comparent leurs valeurs. La valeur la plus élevée gagne 1 $ à l'autre
Si B ne mise pas : aucun gain ni perte pour les deux joueurs

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

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

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

5 10 14  5 12 12  4 15  7  9

mean(values)

9.3

Énigmes de probabilité en R