จำลองผล 10000 เกม

ต่อไปจะจำลองผล 10000 เกม แล้วตอบคำถามนี้: เนื่องจาก 2 และ 12 มีโอกาสออกเท่ากัน แล้วโอกาสที่จะทอดได้ 2 หรือ 12 มากกว่าสองครั้งในหนึ่งเกมนั้นบ่อยแค่ไหน?

กลยุทธ์พื้นฐานแนะนำให้หลีกเลี่ยงช่องที่มีค่า 2 หรือ 12 เนื่องจากมีความน่าจะเป็นต่ำที่สุด แม้ว่าในทางทฤษฎีจะเป็นเช่นนั้น แต่ในแบบฝึกหัดนี้เราจะสำรวจว่าหากค่าเหล่านี้ออกบ่อยกว่าที่คาดไว้จริง ๆ ควรแปลกใจมากแค่ไหน ฟังก์ชัน roll_dice จากแบบฝึกหัดก่อนหน้าถูกโหลดไว้ให้แล้ว

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

Probability Puzzles in R

ดูคอร์ส

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

ใช้ฟังก์ชัน replicate เพื่อทอดลูกเต๋าสองลูก 60 ครั้ง
ใช้เงื่อนไขแบบผสมเพื่อตรวจสอบว่าทอดได้ 2 หรือ 12 มากกว่าสองครั้งหรือไม่
แสดงค่าความน่าจะเป็นโดยประมาณของการทอดได้ 2 หรือ 12 มากกว่าสองครั้งในหนึ่งเกม

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

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

set.seed(1)
counter <- 0

for(i in 1:10000){
  # Roll two dice 60 times
  rolls <- ___
  
  # Check whether 2 or 12 was rolled more than twice
  if(___){
    counter <- counter + 1
  }  
}

# Print the answer
print(___)

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