Nothing
"hlmomco" <-
function(x,para) {
if(! are.par.valid(para)) return();
the.pdf <- dlmomco(x,para);
the.cdf <- plmomco(x,para);
the.pdf[is.na(the.pdf)] <- 0 # should already be done, but not harm again
return(the.pdf/(1 - the.cdf));
}
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.