จาก rbinom สู่ dbinom

โค้ดนี้แสดงการทำงาน 2 ขั้นตอน

จำลองจำนวนคลิก/ผู้เข้าชม (n_clicks) จากโฆษณาที่แสดง 100 ครั้ง โดยใช้ฟังก์ชัน rbinom กำหนดให้สัดส่วนการคลิกที่แท้จริงอยู่ที่ 10%
คำนวณความน่าจะเป็นที่จะได้ผู้เข้าชม 13 คน (prob_13_visitors)

กล่าวคือ ในรูปแบบสัญลักษณ์ความน่าจะเป็น คือการคำนวณ P(n_visitors = 13 | proportion_clicks = 10%)

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

พื้นฐานการวิเคราะห์ข้อมูลแบบ Bayesian ใน R

คำแนะนำการฝึกหัด

ลองรันโค้ดนี้ก่อน
จากนั้น เขียนโค้ดใหม่โดยใช้ dbinom แทนในการคำนวณ prob_13_visitors

จำไว้ว่า: dbinom จะคืนค่าความน่าจะเป็นโดยตรง และรับอาร์กิวเมนต์ดังนี้: dbinom(x = , size = , prob = ) โดยที่ size และ prob มีความหมายเดียวกับใน rbinom แต่ x คือข้อมูลที่ต้องการคำนวณความน่าจะเป็น

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Rewrite this code so that it uses dbinom instead of rbinom
n_ads_shown <- 100
proportion_clicks <- 0.1
n_visitors <- rbinom(n = 99999, 
    size = n_ads_shown, prob = proportion_clicks)
prob_13_visitors <- sum(n_visitors == 13) / length(n_visitors)
prob_13_visitors

แก้ไขและรันโค้ด