R/sample_wrappers.R

#' Draw random inverse gamma variates
#' @export
rinvgamma <- function(n, a, b){
  .Call("rinvgammaR",
        as.integer(n),
        a, b,
        PACKAGE = "dpOMP")
}
emittman/dpOMP documentation built on May 16, 2019, 5:09 a.m.