Nothing
postmode <-
function(fmodel, y, zmin = -5, zmax = 5, ...)
{
tmp <- optimize(function(zeta, ...) fmodel(zeta, ...)$post,
interval = c(zmin, zmax), maximum = TRUE, y = y, ...)
names(tmp) <- c("zeta", "post")
return(tmp)
}
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.