R/BPEWeights.R

Defines functions BPEWeights

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