Nothing
C.fn <-
function(distribution, h) {
if (distribution == "normal") {
h
} else if (distribution == "bernoulli") {
log(h / (1-h))
} else if (distribution == "poisson") {
log(h)
} else if (distribution == "exponential") {
-1/h
}
}
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.