R/aprior.R

aprior <-
function(gamma.hat){m=mean(gamma.hat); s2=var(gamma.hat); (2*s2+m^2)/s2}
JoshuaTian/MyChAMP documentation built on May 7, 2019, 12:04 p.m.