การคำนวณการแจกแจงร่วม
โค้ดที่พัฒนาในวิดีโอที่ผ่านมาจะแสดงอยู่ที่นี่ โค้ดดังกล่าวกำหนด grid ครอบคลุมสัดส่วนการคลิก (proportion_clicks) และผลลัพธ์ที่เป็นไปได้ (n_visitors) ไว้ใน pars พร้อมทั้งเพิ่มค่าความน่าจะเป็น prior ของแต่ละชุดพารามิเตอร์ และค่า likelihood ที่แต่ละ proportion_clicks จะสร้าง n_visitors ที่สอดคล้องกัน
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
พื้นฐานการวิเคราะห์ข้อมูลแบบ Bayesian ใน R
คำแนะนำการฝึกหัด
- เพิ่มคอลัมน์
pars$probability: ค่าความน่าจะเป็นของแต่ละชุดค่าproportion_clicksและn_visitorsโดยคำนวณด้วยการคูณlikelihoodกับpriorเช่นเดียวกับในวิดีโอ - ตรวจสอบให้แน่ใจว่าผลรวมของคอลัมน์
pars$probabilityเท่ากับ1.0โดยการ normalize นั่นคือหารpars$probabilityด้วยผลรวมทั้งหมดของpars$probability
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
n_ads_shown <- 100
proportion_clicks <- seq(0, 1, by = 0.01)
n_visitors <- seq(0, 100, by = 1)
pars <- expand.grid(proportion_clicks = proportion_clicks,
n_visitors = n_visitors)
pars$prior <- dunif(pars$proportion_clicks, min = 0, max = 0.2)
pars$likelihood <- dbinom(pars$n_visitors,
size = n_ads_shown, prob = pars$proportion_clicks)
# Add the column pars$probability and normalize it
pars$probability <- ___