This is a process of trial and error
Plot the Beta(45,55) prior
# beta distribution with hyperparameters # alpha = 45 # beta = 55 bayesrules::plot_beta(45,55, mean = FALSE, mode = FALSE)