Simulación de un único n
Con una sala de tamaño 50, empecemos buscando una solución mediante simulación.
En este código, n representará el tamaño de la sala y match será nuestro contador del número de veces que se produce al menos un cumpleaños coincidente en la simulación, que empieza en 0 y debe incrementarse en cada iteración en la que haya una coincidencia.
Este ejercicio forma parte del curso
Acertijos de probabilidad en R
Instrucciones del ejercicio
- Rellena los parámetros necesarios de la función
samplepara asignar aleatoriamente cumpleaños a cada persona. - Incrementa la variable
matchsegún la condición que cumple. - Calcula la probabilidad estimada de que haya al menos una coincidencia.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
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(___)