R/odds.R

In nicoletadros/Odds: Functions for gambling

#' Convert Fractional odds to decimal odds.
#'
#' @param fractional A character vector of fractional odds.
#' @return A numeric vector of decimal odds.
#' @examples
#' to.decimal ("1/2")
#' @export


to.decimal <- function(fractional) {
  if (class(fractional) != "character") {
    stop("fractional must be a string!")
  }
  eval(parse(text = fractional)) + 1


}

to.decimal("1/2")
to.decimal ("0.5")

#' Convert Fractional odds to decimal odds.
#'
#' @param fractional A character vector of fractional odds.
#' @return A numeric vector of decimal odds.
#' @examples
#' to.fractional ("1/2")
#' @export

to.fractional <- function(decimal){
  as.character(MASS::fractions(decimal - 1))

}
to.fractional(1.5)