Nothing
discrete.bayes=
function (df, prior, y, ...)
{
param = as.numeric(names(prior))
lk=function(j)
prod(df(y,param[j],...))
likelihood=sapply(1:length(param),lk)
pred = sum(prior * likelihood)
prob = prior * likelihood/pred
obj = list(prob = prob, pred = pred)
class(obj) <- "bayes"
obj
}
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.