R/EB.distance.R

Defines functions EB.distance

EB.distance <-
function(dist, tmax, a){
    if(a==0) return(2*dist)
    (2/a)*exp(a*tmax)*(1-exp(-a*dist))
}
melmasri/HPprediction documentation built on May 2, 2020, 11:09 a.m.