R/qtri.R

"qtri" <-

function(p, a = 0., b = a + 2.)



{



	ifelse(p < 0.5, sqrt(p/2.), 1. - sqrt((1. - p)/2.)) * (b - a) +



		a



}

Try the Rlab package in your browser

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

Rlab documentation built on May 5, 2022, 1:05 a.m.