R/bprior.R

bprior <- function(gamma.hat) {
    m = mean(gamma.hat)
    s2 = var(gamma.hat)
    (m * s2 + m^3)/s2
}
BowenNCSU/xMSanalyzer documentation built on May 24, 2019, 7:36 a.m.