Simulatie voor één n

Voor een ruimte met grootte 50 beginnen we met een oplossing via simulatie.

In deze code staat n voor de grootte van de ruimte en match is onze teller voor het aantal keer dat er in de simulatie minimaal één gelijke verjaardag voorkwam. Die begint op 0 en moet in elke iteratie waarin een match voorkomt, worden opgehoogd.

Deze oefening maakt deel uit van de cursus

Kanspuzzels in R

Cursus bekijken

Oefeninstructies

Vul de vereiste parameters van de functie sample in om willekeurig verjaardagen toe te wijzen aan elke persoon.
Verhoog de variabele match volgens de bijbehorende voorwaarde.
Bereken de geschatte kans op minimaal één match.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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 bewerken en uitvoeren