Mise à jour pour d'autres résultats

Dans le dernier exercice, vous avez calculé la probabilité que la pièce soit équilibrée si elle donne 11 faces sur 20 lancers, en supposant qu'au départ il y avait une chance égale qu'il s'agisse d'une pièce équilibrée ou biaisée. Rappelez-vous que le code ressemblait à :

probability_fair <- dbinom(11, 20, .5)
probability_biased <- dbinom(11, 20, .75)
probability_fair / (probability_fair + probability_biased)

Vous allez maintenant déterminer, avec l'approche dbinom(), la probabilité a posteriori pour deux autres résultats.