R/Ucutoff.R

"Ucutoff" <-
function(p, q1, q2, VarU)
{
   ncp = (q2-q1)^2 / 4 / VarU
   return( sqrt(qchisq(p, 1, ncp)) )
}

Try the equivalence package in your browser

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

equivalence documentation built on May 1, 2019, 9:15 p.m.