R/prob_winner.R

In bandit: Functions for Simple a/B Split Test and Multi-Armed Bandit Analysis

Defines functions prob_winner

Documented in prob_winner

prob_winner <- function(post){
  k = ncol(post)
  w = table(factor(max.col(post), levels = 1:k))
  return(w/sum(w))
}

Try the bandit package in your browser