R/tgamma.R

In helen-zhu/ConsensusPeaks: A Method for Peak Merging And Distribution Fitting Across Biological Replicates

#' @export dtgamma
dtgamma <- function(x, shape, rate = 1, a = 0, b = Inf, ...) {
  truncdist::dtrunc(x, spec = 'gamma', a = a, b = b, shape = shape, rate = rate, ...)
}

#' @export ptgamma
ptgamma <- function(q, shape, rate = 1, a = 0, b = Inf, ...) {
  truncdist::ptrunc(q, spec = 'gamma', a = a, b = b, shape = shape, rate = rate, ...)
}

#' @export rtgamma
rtgamma <- function(n, shape, rate = 1, a = 0, b = Inf, ...) {
  truncdist::rtrunc(n, spec = 'gamma', a = a, b = b, shape = shape, rate = rate, ...)
}

#' @export qtgamma
qtgamma <- function(p, shape, rate = 1, a = 0, b = Inf, ...) {
  truncdist::qtrunc(p, spec = 'gamma', a = a, b = b, shape = shape, rate = rate, ...)
}