От rbinom к dbinom

Приведённый код выполняет следующее:

Моделирует количество кликов/посетителей (n_clicks) из 100 показанных объявлений с помощью функции rbinom, исходя из того, что базовая доля кликов составляет 10%.
Вычисляет вероятность получить 13 посетителей (prob_13_visitors).

В терминах теории вероятностей это соответствует P(n_visitors = 13 | proportion_clicks = 10%).

Это упражнение является частью курса

Основы байесовского анализа данных в R

Инструкции к упражнению

Для начала запустите этот код.
Затем перепишите его так, чтобы prob_13_visitors вычислялось с помощью dbinom вместо rbinom.

Напомним: 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

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