R/ProbLMania.R

In farias741/Lotto: Lottery games probability

#'  Lotomania lottery game probability
#'
#'The player only has to choose 50 numbers out of 100 available,
#'the draw consists of extracting 20 different numbers, between 00 and 99.
#'In this game, winners of 20, 19, 18, 17, 16, 15 or those who do not match
#'any number win prizes.
#'
#'x is the amount of numbers bet
#'
#'y is the amount number of hits
#'
#'
#' @param x number
#' @param y number
#'
#' @return number
#' @export
#'
#' @examples ProbLMania(50,20)


ProbLMania = function(x,y){
  prob = (choose(x,y)*choose(100-x,20-y))/choose(100,20)

  if(y>20){
    prob = 0
    message("The maximum number of correct answers is twenty")
  }

  else if (y>=1 & y<15){
    stop("There is no such probability of hits at Lotomania")

  }

  else
    message("You won in Lotomania")

  return(prob)
}