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

<Kurs>Wahrscheinlichkeitsrätsel in R</Kurs>

Kurs ansehen

Übungsanweisungen

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 praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

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