R/rnd.R

Defines functions ddate

Documented in ddate

#' 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)
}
MarauderPixie/code-ish documentation built on May 7, 2019, 2:47 p.m.