R/F0w.R

"F0w" <-
function(u,tol=0.0001,maxit=150) {# Fortran version of F0w.s
z  <- .Fortran("srf0w",u=as.double(u),tol=as.double(tol),maxit=as.integer(maxit),p=double(1))
z$p}

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.