Nothing
logit1 <- function(p,ref=1){
# compute logit with respect to category ref
lp = log(p[-ref]/p[ref])
out = list(lp=lp)
}
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.