Internalized function

This commit is contained in:
Waldir Leoncio 2019-12-17 15:52:29 +01:00
parent 9553105363
commit 3f41629c09

View file

@ -4,7 +4,6 @@
#' @param b rate #' @param b rate
#' @return One realization of Gamma(a, b) #' @return One realization of Gamma(a, b)
#' @details The generated random variable has mean a / b. It will be positively-skewed for small values, but converges to a symmetric distribution for very large numbers of a and b. #' @details The generated random variable has mean a / b. It will be positively-skewed for small values, but converges to a symmetric distribution for very large numbers of a and b.
#' @export
randga <- function (a, b) { randga <- function (a, b) {
flag <- 0 flag <- 0
if (a > 1) { if (a > 1) {