R/odds.R

In omgtats/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
}

#'Convert decimal odds to fractional odds
#'@param decimal A character vector of decimal odds
#'@return A numeric vector of fractional odds
#'@examples
#'to.fractional(0.5)
#'@export
to.fractional<-function(decimal){
  as.character(MASS::fractions(decimal-1))
}