R/which.region.R

which.region <-
function(mu0, p, m, n)
{
	r=(n*mu0^2)/(2*log(p))
	beta=-log(m/p)/log(p)
	which.region.rb(r, beta)
}

Try the HDDesign package in your browser

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

HDDesign documentation built on May 2, 2019, 6:41 a.m.