R/log_factorial.R

In MonkeyLB/gIDR: Generalized irreproducibile discovery rate

Defines functions log_factorial

Documented in log_factorial

#' compute the log factorial
#' @param n integer
#' @return log factorial of the given integer

log_factorial <- function(n){
  return(sum(log(1:n)))
}