Nothing
fitted.repolr <-
function (object, ...) {
fit <- object$fitted.values
names(fit) <- paste(object$id, 1:object$max.id, sep=".")
fit
}
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.