R/phalfcauchy.R

In BNPdensity: Ferguson-Klass Type Algorithm for Posterior Normalized Random Measures

#' Distribution function half Cauchy
#'
#' Computes the cdf.
#'
#' For internal use
#'
#' @keywords internal
#' @examples
#'
#' ## The function is currently defined as
#' function(q, location = 0, scale = 1) {
#'   ifelse(x < 0, 0, 1) * (pcauchy(q, location, scale) - pcauchy(
#'     0,
#'     location, scale
#'   )) / (1 - pcauchy(0, location, scale))
#' }
phalfcauchy <-
  function(q, location = 0, scale = 1) {
    ifelse(q < 0, 0, 1) * (pcauchy(q, location, scale) - pcauchy(
      0,
      location, scale
    )) / (1 - pcauchy(0, location, scale))
  }