exponential.profile <-
function (theta, thetahat, r)
{
return(exp(r + r * (logb(thetahat) - logb(theta)) - (r *
thetahat)/theta))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.