Probabilidad de ganar la apuesta pass line
Ahora vamos a usar las funciones que creamos antes para simular 10.000 partidas de Craps y estimar la probabilidad de ganar la apuesta pass line. Las funciones roll_dice y evaluate_first_roll() que escribiste previamente ya están precargadas para que las uses en este ejercicio. Recuerda que la función evaluate_first_roll() toma como entrada la primera tirada del lanzador y determina qué debe ocurrir después.
Este ejercicio forma parte del curso
Acertijos de probabilidad en R
Instrucciones del ejercicio
- Realiza la primera tirada del lanzador simulando el lanzamiento de dos dados.
- Con el valor de la primera tirada, determina si la apuesta pass line se ganará o se perderá y guarda el resultado en el vector
won.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
set.seed(1)
won <- rep(NA, 10000)
for(i in 1:10000){
# Shooter's first roll
roll <- ___
# Determine result and store it
won[_] <- ___
}
sum(won)/10000