R/Wcutoff.R

"Wcutoff" <-
function(p, eps1, eps2, VarW)
{
   ncp <- (eps1+eps2)^2/4/VarW
   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.