Nothing
probs <-
function (x) {
pr <- plogis(x)
if (any(ind <- pr == 1))
pr[ind] <- 1 - sqrt(.Machine$double.eps)
if (any(ind <- pr == 0))
pr[ind] <- sqrt(.Machine$double.eps)
pr
}
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.