จำลองข้อผิดพลาดของเครื่องหมาย: ความน่าจะเป็นที่เปลี่ยนแปลงได้
ในแบบฝึกหัดก่อนหน้า การจำลองแต่ละครั้งใช้ความน่าจะเป็นของข้อผิดพลาดของเครื่องหมายที่คงที่ในแต่ละขั้นตอน
ในโจทย์ดั้งเดิม ความน่าจะเป็นของข้อผิดพลาดของเครื่องหมายอาจแตกต่างกันในแต่ละขั้นตอน โดยมีเงื่อนไขเพียงอย่างเดียวคือความน่าจะเป็นแต่ละค่าต้องน้อยกว่า 0.50
ในที่นี้ ลองจำลองโจทย์คณิตศาสตร์ที่มี 2 ขั้นตอน โดยความน่าจะเป็นของการสลับในแต่ละขั้นตอนคือ 0.49 และ 0.01 ซึ่งหมายความว่ามีโอกาสสูงที่คำตอบจะผิดในขั้นตอนแรก และมีโอกาสต่ำที่จะสลับกลับในขั้นตอนที่สอง
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Probability Puzzles in R
คำแนะนำการฝึกหัด
- ใช้ฟังก์ชัน
sapplyร่วมกับฟังก์ชันrbinomเพื่อจำลองการสลับภายในโจทย์หนึ่งข้อ โดยกำหนดความน่าจะเป็นของการสลับเป็น 0.49 และ 0.01 สำหรับขั้นตอนที่หนึ่งและสองตามลำดับ - คำนวณจำนวนครั้งทั้งหมดที่เกิดการสลับ
- ตรวจสอบว่าคำตอบของโจทย์คณิตศาสตร์จะถูกต้องหรือไม่
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
set.seed(1)
counter <- 0
for(i in 1:10000){
# Simulate switches
each_switch <- sapply(___)
# Count switches
num_switches <-
# Check solution
if(___){
counter <- counter + 1
}
}
print(counter/10000)