Nothing
fhatgg <-
function(x,theta,mu,sigma){
dn=theta*dnorm(x,mu,sigma)
f=sum(dn)
fg=sum(dn*(mu-x)/sigma^2)
fgg=sum(dn*((mu-x)^2/sigma^2-1)/sigma^2)
return(c(f,fg,fgg))
}
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.