Simulação de um único n

Com uma sala de tamanho 50, vamos começar encontrando uma solução via simulação.

Neste código, n representará o tamanho da sala e match será nosso contador para o número de vezes em que ocorreu pelo menos um aniversário coincidente na simulação, que começa em 0 e deve ser incrementado em cada iteração em que houver uma coincidência.

Este exercício faz parte do curso

Probability Puzzles in R

Ver curso

Instruções do exercício

Preencha os parâmetros necessários da função sample para atribuir aleatoriamente aniversários a cada indivíduo.
Incremente a variável match de acordo com a condição que ela segue.
Calcule a probabilidade estimada de pelo menos uma coincidência.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

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

Editar e executar o código