Probabilità di vincere la puntata pass line
Ora useremo le funzioni create in precedenza per simulare 10.000 partite di Craps e stimare la probabilità di vincere la puntata pass line. Le funzioni roll_dice ed evaluate_first_roll() che hai scritto prima sono già caricate e pronte per l’uso in questo esercizio. Ricorda che la funzione evaluate_first_roll() prende come input il primo lancio dello shooter e determina cosa deve succedere dopo.
Questo esercizio fa parte del corso
Rompicapi di probabilità in R
Istruzioni dell'esercizio
- Esegui il primo lancio dello shooter simulando il lancio di due dadi.
- Usando il valore del primo lancio, stabilisci se la puntata pass line viene vinta o persa e salva il risultato nel vettore
won.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
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