Probabilitas memenangkan taruhan pass line
Sekarang, kita akan menggunakan fungsi yang sebelumnya kita buat untuk mensimulasikan 10.000 permainan Craps guna mengestimasi probabilitas memenangkan taruhan pass line. Fungsi roll_dice dan evaluate_first_roll() yang sebelumnya Anda tulis telah dimuat untuk Anda, untuk digunakan dalam latihan ini. Ingat bahwa fungsi evaluate_first_roll() menerima lemparan pertama shooter sebagai masukan, dan menentukan apa yang harus terjadi setelahnya.
Latihan ini adalah bagian dari kursus
Teka-teki Probabilitas di R
Petunjuk latihan
- Lakukan lemparan pertama shooter dengan mensimulasikan pelemparan dua dadu.
- Menggunakan nilai dari lemparan pertama, tentukan apakah taruhan pass line akan menang atau kalah, dan simpan hasilnya ke dalam vektor
won.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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