R/bayesian_crank.R

In bayesball/TeachBayes: Teaching Bayesian Inference

Defines functions bayesian_crank

Documented in bayesian_crank

bayesian_crank <- function(d){
  d$Product <- d$Likelihood * d$Prior
  d$Posterior <- d$Product / sum(d$Product)
  d
}