R/qhalft.R

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

#' Quantile function half Student-t
#'
#' Computes the quantiles.
#'
#' For internal use
#'
#' @keywords internal
#' @examples
#'
#' ## The function is currently defined as
#' function(p, df = 1, mean = 0, sd = 1) {
#'   qt_(
#'     p * (1 - pt_(0, df, mean, sd)) + pt_(0, df, mean, sd),
#'     df, mean, sd
#'   )
#' }
qhalft <-
  function(p, df = 1, mean = 0, sd = 1) {
    qt_(
      p * (1 - pt_(0, df, mean, sd)) + pt_(0, df, mean, sd),
      df, mean, sd
    )
  }