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