Nothing
mloglik1b <-
function(jtms,TT=max(jtms),nu,g,Ig=function(x)sapply(x,function(y)integrate(g,0,y,rel.tol=1e-12,abs.tol=1e-12,subdivisions=1000)$value),
Inu=function(x)sapply(x,function(y)integrate(nu,0,y)$value)){
.External("mloglik1b",jtms,length(jtms),TT,nu,g,Ig,Inu,new.env(),PACKAGE="IHSEP")
}
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.