R/aprior.R

aprior <- function(gamma.hat)
							{
							m=mean(gamma.hat)
							s2=var(gamma.hat)
							(2*s2+m^2)/s2
							}
ShixiangWang/arrayConnector documentation built on May 14, 2019, 6:02 a.m.