Pravděpodobnost výhry sázky na pass line
Teď využijeme funkce, které jsme vytvořili dříve, k simulaci 10 000 her Craps a odhadneme pravděpodobnost výhry sázky na pass line. Funkce roll_dice a evaluate_first_roll(), které jsi napsal/a dříve, jsou pro toto cvičení předem načteny. Připomeň si, že funkce evaluate_first_roll() přijme první hod střelce jako vstup a určí, co by mělo následovat.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- Proveď první hod střelce simulací hodu dvěma kostkami.
- Na základě hodnoty prvního hodu zjisti, zda bude sázka na pass line vyhrána nebo prohrána, a výsledek ulož do vektoru
won.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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