Nothing
link <- function(x, type = c("cloglog", "log", "logit", "probit")){
switch(type,
cloglog = log(-log(1 - x)),
log = log(x),
logit = qlogis(x),
probit = qnorm(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.