contextual (version 0.9.8.4)

prob_winner: Binomial Win Probability

Description

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

Usage

prob_winner(post)

Arguments

post

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

Value

Probabilities each arm is the winner.

Examples

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

# }