BPEWeights <- function(K, tau.sq, sigma.sq) {
dd <- sigma.sq/(sigma.sq + tau.sq)
tmp <- dd*dd
ans <- tmp/sum(tmp)
return(ans)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.