R/beta.mom.R

Defines functions beta.mom

Documented in beta.mom

beta.mom <-
function(qs.in){
	xbar<-mean(qs.in)
	s2<-var(qs.in)
	term<-(xbar*(1-xbar))/s2
	alpha.hat<-xbar*(term-1)
	beta.hat<-(1-xbar)*(term-1)
	return(c(alpha.hat,beta.hat))
}
lengning/EBSeq documentation built on May 21, 2019, 4:02 a.m.