Nothing
likelihood_closedform <-
function(param, paramnames, zeroset, listdata, fMP) {
d1 = length(param);
d2 = length(zeroset);
paramlist = vector('list',length=(d1+d2));
names(paramlist) = c(paramnames, zeroset);
for (i in 1:d1) paramlist[[i]] = param[i];
if(d2>0) { for (j in 1:d2) paramlist[[d1+j]] = 0; }
fmp = lapply(X=listdata, FUN=fMP, param=paramlist);
return(sum(unlist(fmp)));
}
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.