ความน่าจะเป็นของการชนะการเดิมพัน Pass Line

ต่อไปเราจะใช้ฟังก์ชันที่สร้างไว้ก่อนหน้านี้เพื่อจำลองเกม Craps จำนวน 10,000 ครั้ง แล้วประมาณค่าความน่าจะเป็นของการชนะการเดิมพัน Pass Line ฟังก์ชัน roll_dice และ evaluate_first_roll() ที่เขียนไว้ก่อนหน้านี้ถูกโหลดมาให้แล้ว พร้อมใช้งานในแบบฝึกหัดนี้ ขอให้นึกถึงว่าฟังก์ชัน evaluate_first_roll() รับผลการทอยครั้งแรกของผู้ทอยเป็น input แล้วกำหนดว่าจะเกิดอะไรขึ้นต่อไป

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

Probability Puzzles in R

ดูคอร์ส

คำแนะนำการฝึกหัด

จำลองการทอยลูกเต๋าสองลูกเพื่อให้ได้ผลการทอยครั้งแรกของผู้ทอย
นำผลการทอยครั้งแรกมาตรวจสอบว่าการเดิมพัน Pass Line จะชนะหรือแพ้ แล้วเก็บผลลัพธ์ลงใน vector won

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

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

แก้ไขและรันโค้ด