Kans om de pass line-weddenschap te winnen
Nu gebruiken we de functies die we eerder hebben gemaakt om 10.000 potjes Craps te simuleren en zo de kans te schatten om de pass line-weddenschap te winnen. De functies roll_dice en evaluate_first_roll() die je eerder schreef, zijn voor je vooringeladen om in deze oefening te gebruiken. Onthoud dat de functie evaluate_first_roll() de eerste worp van de shooter als input neemt en bepaalt wat er daarna moet gebeuren.
Deze oefening maakt deel uit van de cursus
Kanspuzzels in R
Oefeninstructies
- Voer de eerste worp van de shooter uit door het gooien van twee dobbelstenen te simuleren.
- Gebruik de waarde van de eerste worp om te bepalen of de pass line-weddenschap wordt gewonnen of verloren, en sla het resultaat op in de vector
won.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
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