Nothing
"linkfn" <-
function(x, family, ...){
args <- list(...)
switch( family,
"identity"=x,
"log"=exp(x),
"logit"=exp(x)/(1+exp(x)) ,
"hyper"=1/(1+x)
)
}
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.