1. Učit se
    2. /
  2. Kurzy
    3. /
  3. Základy pravděpodobnosti v R
Connected

cvičení

Aktualizace se třemi mincemi

Představ si, že místo toho, aby mince byla buď férová, nebo zaujatá, existují tři možnosti: mince je férová (50 % hlav), nízká (25 % hlav) nebo vysoká (75 % hlav). Pravděpodobnost, že je férová, je 80 %, pravděpodobnost, že je zaujatá směrem dolů, je 10 %, a pravděpodobnost, že je zaujatá směrem nahoru, je také 10 %.

Pozoruješ, že 14 z 20 hodů padlo na hlavu. Jaká je pravděpodobnost, že je mince férová?

Pokyny

100 XP
  • Pomocí funkce rbinom() nasimuluj 80 000 tahů z férové mince, 10 000 tahů z mince s vysokou pravděpodobností a 10 000 tahů z mince s nízkou pravděpodobností, přičemž každý tah obsahuje 20 hodů. Výsledky ulož jako flips_fair, flips_high a flips_low.
  • Pro každý z těchto typů spočítej počet mincí, u nichž výsledek byl 14. Ulož je jako fair_14, high_14 a low_14.
  • Zjisti posteriórní pravděpodobnost, že mince byla férová, tak, že vydělíš počet férových mincí s výsledkem 14 celkovým počtem mincí s výsledkem 14.