Aggiornare con il teorema di Bayes
In questo capitolo hai usato la simulazione per stimare la probabilità a posteriori che una moneta che ha dato 11 teste su 20 lanci sia equa. Ora la ricalcolerai, questa volta usando le probabilità esatte fornite da dbinom(). C'è il 50% di probabilità che la moneta sia equa e il 50% che sia truccata.
Questo esercizio fa parte del corso
Fondamenti di probabilità in R
Istruzioni dell'esercizio
- Usa la funzione
dbinom()per calcolare la probabilità esatta di ottenere 11 teste su 20 lanci con una moneta equa (50% di probabilità di testa) e con una moneta truccata (75% di probabilità di testa). Salvale rispettivamente comeprobability_faireprobability_biased. - Usa questi valori per calcolare la probabilità a posteriori che la moneta sia equa. È la probabilità di ottenere 11 con una moneta equa, divisa per la somma delle due probabilità.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
# Use dbinom to calculate the probability of 11/20 heads with fair or biased coin
probability_fair <-
probability_biased <-
# Calculate the posterior probability that the coin is fair