Wahrscheinlichkeit, die Pass-Line-Wette zu gewinnen
Jetzt verwenden wir die zuvor erstellten Funktionen, um 10.000 Runden Craps zu simulieren und die Gewinnwahrscheinlichkeit der Pass-Line-Wette zu schätzen. Die Funktionen roll_dice und evaluate_first_roll(), die du zuvor geschrieben hast, sind für dich vorab geladen und können in dieser Übung verwendet werden. Denk daran: Die Funktion evaluate_first_roll() nimmt den ersten Wurf des Shooters als Eingabe und bestimmt, was danach passieren soll.
Diese Übung ist Teil des Kurses
Wahrscheinlichkeitsrätsel in R
Anleitung zur Übung
- Führe den ersten Wurf des Shooters aus, indem du das Würfeln von zwei Würfeln simulierst.
- Bestimme anhand des Werts des ersten Wurfs, ob die Pass-Line-Wette gewonnen oder verloren wird, und speichere das Ergebnis im Vektor
won.
Interaktive Übung
Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.
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