R/adrift.R

"adrift" <- function(t,za,zb,pow){
    dr <- (zb[length(t)]+qnorm(pow))/sqrt(t[length(t)])
    drft <- bisect(t,za,zb,pow,dr)
    return(drft)
  }

Try the ldbounds package in your browser

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

ldbounds documentation built on June 22, 2024, 6:53 p.m.