Aktualizace pomocí simulace

Ze série 20 hodů mincí padlo 11krát hlava. Mince je buď férová (50% šance na hlavu), nebo zkreslená (75% šance na hlavu). Jak pravděpodobné je, že jde o férovou minci? Odpověz na tuto otázku simulací 50 000 férových a 50 000 zkreslených mincí.

Toto cvičení je součástí kurzu

Základy pravděpodobnosti v R

Zobrazit kurz

Pokyny k cvičení

Nasimuluj 50 000 případů hodu 20 mincemi – jednou pro férovou minci (50% šance na hlavu) a jednou pro zkreslenou minci (75% šance na hlavu). Výsledky ulož do proměnných fair a biased.
Zjisti, u kolika férových mincí padla hlava přesně 11krát z 20, a u kolika zkreslených mincí padla hlava přesně 11krát z 20. Výsledky ulož jako fair_11 a biased_11.
Vypočítej, jaký podíl ze všech mincí, kde padla hlava přesně 11krát, byl férových – to je posteriorní pravděpodobnost, že mince s výsledkem 11/20 je férová.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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 11 heads?
fair_11 <- 
biased_11 <- 

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

Upravit a spustit kód