การโยนเหรียญด้วย prop_model

ฟังก์ชัน prop_model ถูกโหลดเข้ามาในพื้นที่ทำงานของคุณแล้ว โดยนำโมเดล Bayesian ที่มีข้อสมมติดังนี้ไปใช้งาน

• data คือเวกเตอร์ของผลลัพธ์สำเร็จและไม่สำเร็จ แทนด้วย 1 และ 0
• มีสัดส่วนความสำเร็จที่แท้จริงซึ่งยังไม่ทราบค่า
• ก่อนที่จะมีการอัปเดตด้วยข้อมูล สัดส่วนความสำเร็จที่แท้จริงทุกค่ามีความน่าจะเป็นเท่ากัน

สมมติว่าโยนเหรียญ 4 ครั้ง และได้ผลลัพธ์เป็น หัว, ก้อย, ก้อย, หัว หากกำหนดให้ หัว คือความสำเร็จ และ ก้อย คือความล้มเหลว โค้ด R ด้านล่างนี้จะรัน prop_model ด้วยข้อมูลดังกล่าว

data <- c(1, 0, 0, 1)
prop_model(data)