ความน่าจะเป็นของการชนะเมื่อเลือก "stick"
มาเขียนโค้ดจำลองเกมโชว์ Monty Hall กัน ในแบบฝึกหัดนี้ ผู้เข้าแข่งขันจะเลือกประตูหมายเลข 1 และ "stick" ทุกครั้ง จากนั้นหาความถี่สัมพัทธ์ของการชนะหลังจากทำซ้ำ 10000 รอบ
เริ่มจากการเขียนโค้ดสำหรับ 1 รอบก่อน แล้วจึงนำไปใส่ใน for loop เพื่อรันซ้ำหลายครั้ง และประมาณค่าความน่าจะเป็นที่แท้จริงของการชนะ โดยใช้แนวคิดของตัวนับที่เราได้พูดถึงไปก่อนหน้านี้
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
set.seed(1)
doors <- c(1,2,3)
# Randomly select one of the doors to have the prize
prize <- sample(x = ___, size = ___)
initial_choice <- 1
# Check if the initial choice equals the prize
if(___){
print("The initial choice was correct!")
}
print(prize)