R/moneyLineToOdds.R

Defines functions moneyLineToOdds

#' @export
moneyLineToOdds <- function(iMoneyLine) {

    ml <- iMoneyLine[abs(iMoneyLine) >= 100]
    odds <- ifelse(ml > 0, ml / 100, -100 / ml)

    return(odds)

}
jonathan-erdmann/optimizebets documentation built on Sept. 1, 2022, 10:35 p.m.