R/Beta.w.R

"Beta.w" <-function(l,u)
{
  Alfa <- pezez(u)-pezez(l)
  tmp <- integrate(s2phi.w,lower=l,upper=u)$value; tmp/Alfa
}

Try the RobustAFT package in your browser

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

RobustAFT documentation built on Aug. 21, 2023, 5:13 p.m.