R/getProb.R

getProb <-
function(Seg, prob)
{	
	return (prod(prob^Seg*(1-prob)^(1-Seg)))
}

Try the GESE package in your browser

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

GESE documentation built on May 2, 2019, 3:59 a.m.