R/which.region.rb.R

which.region.rb <-
function(r, beta)
{
	if (r>=1 || beta>=1)
		return(4)
	if (r<= rho(beta))
		return(0)
	if (is.region1(r, beta))
		return(1)
	else
		if(is.region2(r, beta))
			return(2)
		else
			return(3)
}

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.