Nothing
residuals.repolr <-
function(object, type = c("deviance", "pearson", "response"), ...){
type <- match.arg(type)
y <- object$y
mu <- object$fitted.values
res <- switch(type, response = y - mu, pearson = (y - mu)/sqrt(mu * (1 - mu)),
deviance = ifelse(y == 0, - sqrt(2 * abs(log(1 - mu))),
sqrt(2 * abs(log(mu)))))
res
}
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.