R/get.wprior.R

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

Defines functions get.wprior

Documented in get.wprior

get.wprior<-function(beta)
{
  p<-dim(beta)[1]
  w<-sum(beta!=0)/p
  return(w)
}

Try the icmm package in your browser