Podmínění na datech (znovu)

Vrátíme se k příkladu se zombie webem, kde jsi testoval/a textové reklamy. Ze 100 zobrazení textové reklamy kliklo a navštívilo tvůj web 6 ze 100 uživatelů.

Vpravo najdeš přibližně kód, který jsi vyvinul/a v předchozím cvičení. pars je aktuálně sdružené rozdělení přes všechny kombinace proportion_clicks a n_visitors.

Toto cvičení je součástí kurzu

Základy bayesovské analýzy dat v R

Zobrazit kurz

Pokyny k cvičení

Podmíni na datech a ponech v pars pouze řádky, kde n_visitors == 6.
Znovu normalizuj pars$probability, aby byl jeho součet 1.0.
Vykresli posterior pars$probability pomocí plot(x = , y = , type = "h") s pars$proportion_clicks na ose x a pars$probability na ose y.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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)
pars$probability <- pars$likelihood * pars$prior
pars$probability <- pars$probability / sum(pars$probability)
# Condition on the data 
pars <- ___
# Normalize again
pars$probability <- ___
# Plot the posterior pars$probability
plot(___)

Upravit a spustit kód