การเขียนฟังก์ชันสำหรับการ "สลับ"
ก่อนที่จะจำลองสถานการณ์ "สลับ" มาเขียนฟังก์ชันสำหรับการเปิดเผยประตูในบริบทนี้กันก่อน จากนั้นจะนำฟังก์ชันนี้ไปใช้ในแบบฝึกหัดถัดไปเพื่อจำลองความน่าจะเป็นในการชนะเมื่อเลือกสลับประตู
จำไว้ว่าหากประตูที่เลือกไว้ในตอนแรกถูกต้อง พิธีกรจะสุ่มเลือกประตูใดประตูหนึ่งจากสองประตูที่เหลือมาเปิดเผย
แต่หากประตูที่เลือกในตอนแรกผิด พิธีกรจะเปิดเผยประตูที่ผิดอีกบานที่เหลืออยู่โดยตรง ซึ่งในกรณีนี้ไม่มีความสุ่มเกิดขึ้นแต่อย่างใด
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
คำแนะนำการฝึกหัด
- ในกรณีที่การเลือกเริ่มต้นถูกต้อง ให้ใช้ฟังก์ชัน
sampleเพื่อสุ่มเลือกประตูอื่นมาเปิดเผย - ในกรณีที่ผิด ให้เลือกประตูที่เหลืออยู่เพียงบานเดียวมาเปิดเผย
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
reveal_door <- function(doors, prize, initial_choice){
if(prize == initial_choice){
# Sample at random from the two remaining doors
reveal <- sample(x = ___, size = 1)
} else {
# When the prize and initial choice are different, reveal the only remaining door
reveal <- ___
}
}