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))
}

Try the EBSeq package in your browser

Any scripts or data that you put into this service are public.

EBSeq documentation built on Nov. 8, 2020, 6:52 p.m.