ahw_B<-function(t0, tn, a){ b=(1-exp(-a*(tn-t0)))/a return(b) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.