สรุปผลการทดลองยาซอมบี้
ข้อดีของการทำงานกับตัวอย่างจากการแจกแจงความน่าจะเป็นคือช่วยให้คำนวณค่าที่สนใจได้ ง่าย ขึ้น งานต่อไปนี้จะให้ฝึกทำสิ่งนั้น!
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
พื้นฐานการวิเคราะห์ข้อมูลแบบ Bayesian ใน R
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
data = c(1, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0)
posterior <- prop_model(data)
hist(posterior, breaks = 30, xlim = c(0, 1), col = "palegreen4")
# Calculate the median