Probabilidade de ganhar a aposta pass line
Agora, vamos usar as funções que criamos antes para simular 10.000 partidas de Craps e estimar a probabilidade de ganhar a aposta pass line. As funções roll_dice e evaluate_first_roll() que você escreveu anteriormente já foram pré-carregadas para este exercício. Lembre-se de que a função evaluate_first_roll() recebe a primeira rolagem do atirador como entrada e determina o que deve acontecer depois disso.
Este exercício faz parte do curso
Probability Puzzles in R
Instruções do exercício
- Faça a primeira rolagem do atirador simulando o lançamento de dois dados.
- Usando o valor da primeira rolagem, determine se a aposta pass line será ganha ou perdida e armazene o resultado no vetor
won.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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