R/probabilityToMoneyLine.R

In jonathan-erdmann/optimizebets: Optimize Bet Placement

#' @export
probabilityToMoneyLine <- function(iProbability) {

    moneyLine <- ifelse(iProbability > 0.5, -100 / (1 / iProbability - 1),   100 * (1 / iProbability - 1))

    return(moneyLine)

}