EB.distance <- function(dist, tmax, a){ if(a==0) return(2*dist) (2/a)*exp(a*tmax)*(1-exp(-a*dist)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.