.R

# create a prior probability vector
prior <- 0:10 * 0.1

# writing what we know
beta <- 0.20
alpha <- 0.05
power <- 1 - beta

# bayes theorem
posterior <- power * prior / (power * prior + alpha * (1-prior))
round(posterior, 2)

# plot posterior
plot(prior, posterior, pch = 16, type = "b")