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 March 31, 2023, 5:16 p.m.