R/wpost.laplace.R

wpost.laplace <- function(w, x, s = 1, a = 0.5)
#
#  Calculate the posterior weight for non-zero effect
#
  1 - (1 - w)/(1 + w * beta.laplace(x, s, a))
stephenslab/EbayesThresh documentation built on May 15, 2019, 4:28 p.m.