ไพ่อีกสองใบที่จะเปิด
ลองพิจารณาสถานการณ์ที่ยังมีไพ่อีก 2 ใบที่จะเปิดออกมา โดยเราจะหาความน่าจะเป็นของการชนะสำหรับจำนวน outs ใด ๆ
ในจุดนี้ มีไพ่หงายอยู่บนโต๊ะ 3 ใบ และอยู่ในมือ 2 ใบ จากไพ่ทั้งหมด 52 ใบในสำรับ จะเหลือไพ่ที่ยังไม่เห็น 47 ใบ ดังนั้นตัวหารจึงเป็น \({47 \choose 2}\) ซึ่งแทนจำนวนการจัดหมู่ทั้งหมดของไพ่สองใบที่จะเปิดออกมา
การประมาณค่าที่นักโป๊กเกอร์นิยมใช้กันคือ ความน่าจะเป็นของการชนะเท่ากับ \(\frac{4 \times outs}{100}\) แล้วการประมาณค่านี้แม่นยำแค่ไหน?
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
คำแนะนำการฝึกหัด
- ใช้เวกเตอร์
outsเพื่อกำหนดตัวเศษของp_no_outsซึ่งนับจำนวนวิธีที่ไม่มี outs ใดออกมาในไพ่สองใบถัดไปเลย - คำนวณความน่าจะเป็นของการชนะที่สอดคล้องกับจำนวน outs แต่ละค่า
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
outs <- c(0:25)
# Calculate probability of not winning
p_no_outs <- ___/choose(47, 2)
# Calculate probability of winning
p_win <- ___
print(p_win)