Simulation für ein einzelnes n

Bei einer Raumgröße von 50 starten wir mit einer Lösung per Simulation.

In diesem Code steht n für unsere Raumgröße und match ist unser Zähler für die Anzahl der Simulationen, in denen mindestens ein übereinstimmender Geburtstag auftrat. Er startet bei 0 und soll in jeder Iteration, in der eine Übereinstimmung vorkommt, erhöht werden.

Diese Übung ist Teil des Kurses

Wahrscheinlichkeitsrätsel in R

Kurs anzeigen

Anleitung zur Übung

Fülle die notwendigen Parameter der Funktion sample aus, um zufällig Geburtstage auf jede Person zu verteilen.
Erhöhe die Variable match entsprechend der zugehörigen Bedingung.
Berechne die geschätzte Wahrscheinlichkeit für mindestens eine Übereinstimmung.

Interaktive Übung

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

set.seed(1)
n <- 50
match <- 0

# Simulate 10000 rooms and check for matches in each room
for(i in 1:10000){
  birthdays <- sample(___, ___, replace = ___)
  if(length(unique(birthdays)) < n){
    match <- ___
  } 
}

# Calculate the estimated probability of a match and print it
p_match <- ___
print(___)

Code bearbeiten und ausführen