Nothing
update.theta <-
function(mu, sigma, yPy, yP1, M){
1 - mu*yP1/2/yPy - sqrt(mu^2*yP1^2 + 4*sigma^2*M*yPy)/2/yPy
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.