R/igamma.R

igamma <- function (s, u, log = FALSE) {
  robj <- pgamma(u, shape = s, rate = 1, log.p = TRUE) + lgamma(s)
  if (!log) robj <- exp(robj)
  robj
}

Try the tailloss package in your browser

Any scripts or data that you put into this service are public.

tailloss documentation built on May 2, 2019, 4:18 a.m.