Обчислення спільного розподілу

Нижче наведено частини коду, які ми розробили в останньому відео. Вони визначають сітку можливих значень частки кліків (proportion_clicks) і можливих результатів (n_visitors) у pars. До неї додано апріорну ймовірність (prior) для кожної комбінації параметрів і правдоподібність того, що кожне значення proportion_clicks згенерує відповідне n_visitors.

Ця вправа є частиною курсу

Основи байєсівського аналізу даних у R

Переглянути курс

Інструкції до вправи

Додайте колонку pars$probability: імовірність кожної комбінації proportion_clicks та n_visitors. Як у відео, це слід обчислити множенням likelihood на prior.
Переконайтеся, що сума в колонці pars$probability дорівнює 1.0, тобто виконайте її нормалізацію, поділивши 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 <- ___

Редагувати та запускати код