#' @export
moneyLineToOdds <- function(iMoneyLine) {
ml <- iMoneyLine[abs(iMoneyLine) >= 100]
odds <- ifelse(ml > 0, ml / 100, -100 / ml)
return(odds)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.