R/intmew.R

"intmew" <-
function(iopt,tl,tu,til=1e-4) {
b1 <- 0
z  <- .Fortran("srintmw",iwgt=as.integer(iopt),tl=as.double(tl),tu=as.double(tu),
      b1=as.double(b1),til=as.double(til),sum=double(1))
z$sum}

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.