Sannolikhet att vinna pass line-insatsen
Nu ska vi använda de funktioner vi skapade tidigare för att simulera 10 000 omgångar av Craps och på så sätt uppskatta sannolikheten att vinna pass line-insatsen. Funktionerna roll_dice och evaluate_first_roll() som du tidigare skrev har laddats in i förväg och är redo att användas i den här övningen. Kom ihåg att funktionen evaluate_first_roll() tar spelarens första slag som indata och avgör vad som ska hända därefter.
Den här övningen är en del av kursen
Sannolikhetspussel i R
Övningsinstruktioner
- Utför spelarens första slag genom att simulera ett kast med två tärningar.
- Använd värdet från det första slaget för att avgöra om pass line-insatsen vinns eller förloras, och lagra resultatet i vektorn
won.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
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