Prawdopodobieństwo wygrania zakładu pass line
Teraz użyjemy wcześniej utworzonych funkcji, aby zasymulować 10 000 partii Craps i oszacować prawdopodobieństwo wygrania zakładu pass line. Funkcje roll_dice i evaluate_first_roll(), które napisano wcześniej, zostały załadowane z wyprzedzeniem i są gotowe do użycia w tym ćwiczeniu. Przypomnij sobie, że funkcja evaluate_first_roll() przyjmuje wynik pierwszego rzutu gracza jako argument i określa, co powinno się wydarzyć dalej.
To ćwiczenie jest częścią kursu
Zagadki prawdopodobieństwa w R
Instrukcje do ćwiczenia
- Wykonaj pierwszy rzut gracza, symulując rzut dwoma kośćmi.
- Na podstawie wyniku pierwszego rzutu ustal, czy zakład pass line zostanie wygrany, czy przegrany, i zapisz rezultat do wektora
won.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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