Nothing
loglikgeomRoy <-
function(par,x,y)
{
theta1<-par[1]
theta2<-par[2]
theta3<-par[3]
-sum(log(dbivgeomRoy(x,y,theta1,theta2,theta3)))
}
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.