R/Scalew.R

"Scalew" <-
function(vo,rr,den,rhs,tol,maxit){
z  <- Nwtv(vo/4,rr,den,rhs,tol,maxit)$v
if (!is.na(z)) v <- z else v <- Fxdv(vo,rr,den,rhs,tol,300)$v; v}

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.