Simulering för ett enskilt n

Med ett rum av storleken 50 börjar vi med att hitta en lösning via simulering.

I den här koden representerar n vår rumsstorlek och match är vår räknare för antalet gånger som minst en matchande födelsedag inträffade i simuleringen. Den startar på 0 och ska ökas med 1 varje gång en matchning inträffar.

Den här övningen är en del av kursen

Sannolikhetspussel i R

Visa kurs

Övningsinstruktioner

Fyll i de parametrar som krävs i funktionen sample för att slumpmässigt tilldela varje person en födelsedag.
Öka variabeln match enligt det villkor den följer.
Beräkna den uppskattade sannolikheten för att minst en matchning inträffar.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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(___)

Redigera och kör kod