R/get.zeta.R

In icmm: Empirical Bayes Variable Selection via ICM/M Algorithm

Defines functions get.zeta

Documented in get.zeta

get.zeta<-function(SS, w, alpha)
{
  betaSS<-beta.laplace(ifelse(SS>=38, 38, SS), a=alpha)
  zeta<-(1+betaSS)/((1/w)+betaSS)
  return(zeta)
}

Try the icmm package in your browser