powered by
prior_post_plot(d,...)
df <- data.frame(p=c(.1, .3, .5, .7, .9), Prior=rep(1/5, 5)) y <- 5 n <- 10 df$Likelihood <- dbinom(y, prob=df$p, size=n) df <- bayesian_crank(df) prior_post_plot(df, "Proportion")
Run the code above in your browser using DataLab