Mise à jour par simulation après 16 faces

Vous observez 16 faces sur 20 lancers d’une pièce qui est soit équitable (50 % de chances de faire face), soit biaisée (75 % de chances de faire face). Quelle est la probabilité que la pièce soit équitable ?

Cet exercice fait partie du cours

Fondamentaux de la probabilité en R

Afficher le cours

Instructions

Simulez 50 000 séries de 20 lancers pour une pièce équitable (50 % de chances de face), ainsi que pour une pièce biaisée (75 % de chances de face). Enregistrez ces variables sous les noms fair et biased respectivement.
Trouvez le nombre de pièces équitables pour lesquelles exactement 16/20 lancers donnent face, puis le nombre de pièces biaisées pour lesquelles exactement 16/20 lancers donnent face. Enregistrez-les sous fair_16 et biased_16 respectivement.
Affichez la proportion de toutes les pièces ayant obtenu 16 faces qui étaient des pièces équitables : c’est la probabilité a posteriori qu’une pièce avec 16/20 soit équitable.

Exercice interactif pratique

Essayez cet exercice en complétant cet exemple de code.

# Simulate 50000 cases of flipping 20 coins from fair and from biased
fair <- 
biased <- 

# How many fair cases, and how many biased, led to exactly 16 heads?
fair_16 <- 
biased_16 <- 

# Find the fraction of fair coins that are 16 out of all coins that were 16

Modifier et exécuter le code