R/cusp.bifset.R

`cusp.bifset` <-
function (beta) 
{
    alpha = 2 * (beta/3)^(3/2)
    cbind(beta = beta, alpha.l = -alpha, alpha.u = alpha)
}

Try the cusp package in your browser

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

cusp documentation built on Aug. 29, 2022, 9:07 a.m.