Nothing

```
get.d = function(z.hat, egg) {
# Get the value of d for a given value of z.hat
d = (egg$a*exp(((-z.hat^2)/(2*egg$b^2)) + ((egg$c*z.hat)/(egg$b^2)) - ((egg$c^2)/(2*egg$b^2)))*sqrt(1 - z.hat)*sqrt(z.hat))/(pi*egg$b)
return(d)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.