Вычисление совместного распределения

На экране отображается код, разработанный в предыдущем видео. Он задаёт сетку значений по возможным долям кликов (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 <- ___

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