Binomial Win Probability

Source: R/functions_utility.R

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)