R/MLEWeights.R

Defines functions MLEWeights

MLEWeights <- function(K, tau.sq, sigma.sq) {
    tmp <- 1/(sigma.sq + tau.sq)
    ans <- tmp/sum(tmp)
    return(ans)
}
nchenderson/shrinkcbp documentation built on March 11, 2021, 2:52 p.m.