Aktualisieren mit Simulation nach 16-mal Kopf

Wir sehen 16 von 20 Würfen einer Münze, die entweder fair ist (50 % Chance auf Kopf) oder verzerrt (75 % Chance auf Kopf). Wie wahrscheinlich ist es, dass die Münze fair ist?

Diese Übung ist Teil des Kurses

Grundlagen der Wahrscheinlichkeit mit R

Kurs anzeigen

Anleitung zur Übung

Simuliere 50.000 Fälle, in denen jeweils 20-mal mit einer fairen Münze (50 % Chance auf Kopf) geworfen wird, sowie mit einer verzerrten Münze (75 % Chance auf Kopf). Speichere diese Variablen jeweils als fair und biased.
Ermittle die Anzahl der Fälle mit fairen Münzen, in denen genau 16/20-mal Kopf vorkam, und dann die Anzahl der Fälle mit verzerrten Münzen, in denen genau 16/20-mal Kopf vorkam. Speichere sie jeweils als fair_16 und biased_16.
Gib den Anteil aller Fälle aus, in denen 16-mal Kopf vorkam, die von fairen Münzen stammen – das ist die posteriori Wahrscheinlichkeit dafür, dass eine Münze mit 16/20 fair ist.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

# 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 16 heads?
fair_16 <- 
biased_16 <- 

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

Code bearbeiten und ausführen