R/functions_utility.R
prob_winner.Rd
Function to compute probability that each arm is the winner, given simulated posterior results.
prob_winner(post)
Simulated results from the posterior, as provided by sim_post()
Probabilities each arm is the winner.
x <- c(10,20,30,50) n <- c(100,102,120,130) betaPost <- sim_post(x,n) pw <- prob_winner(betaPost)