Function to compute probability that each arm is the winner, given simulated posterior results.

prob_winner(post)

Arguments

post

Simulated results from the posterior, as provided by sim_post()

Value

Probabilities each arm is the winner.

Examples

x <- c(10,20,30,50) n <- c(100,102,120,130) betaPost <- sim_post(x,n) pw <- prob_winner(betaPost)