R/bvs_R_utils.R

Defines functions computeModelPrior

# computes log of Beta-Binomial Prior for model size
computeModelPrior <- function(pgamma, p, alpha, beta) {
    lbeta(pgamma + alpha, p - pgamma + beta) - lbeta(alpha, beta)
}
USCbiostats/bvs documentation built on April 30, 2021, 12:29 a.m.