R/rnd.R

In MarauderPixie/code-ish: Everything the Sophisticated 'Discordian' Needs

#' Hail Eris
#'
#' Use with caution.
#'
#' @return POEE date, unless there's a hiccup, but it'll sort itself out
#' @export

ddate <- function() {
  poee <- poee()
  fnord <- fnord()

  lottery <- c(poee, fnord)

  ticket <- sample(lottery, 1, replace = T, prob = c(0.7, 0.3))

  return(ticket)
  # invisible(ticket)
}