1. Learn
    2. /
  2. Cursuri
    3. /
  3. Podstawy rachunku prawdopodobieństwa w R
Connected

exercițiu

Aktualizacja dla trzech monet

Załóżmy, że moneta nie jest po prostu uczciwa lub nieuczciwa – tym razem mamy trzy możliwości: moneta uczciwa (50% orłów), z przewagą reszki (25% orłów) i z przewagą orła (75% orłów). Prawdopodobieństwo, że moneta jest uczciwa, wynosi 80%, z przewagą reszki – 10%, a z przewagą orła – 10%.

W 14 na 20 rzutów wypadł orzeł. Jakie jest prawdopodobieństwo, że moneta jest uczciwa?

Instrucțiuni

100 XP
  • Użyj funkcji rbinom(), aby zasymulować 80 000 losowań dla monety uczciwej, 10 000 losowań dla monety z przewagą orła i 10 000 losowań dla monety z przewagą reszki – każde losowanie zawiera 20 rzutów. Zapisz wyniki odpowiednio jako flips_fair, flips_high i flips_low.
  • Dla każdego z tych typów oblicz liczbę monet, które dały wynik równy 14. Zapisz je odpowiednio jako fair_14, high_14 i low_14.
  • Wyznacz prawdopodobieństwo a posteriori, że moneta była uczciwa: podziel liczbę uczciwych monet dających wynik 14 przez łączną liczbę monet dających wynik 14.