Nothing
cooks.dist.toureg <- function(object, ...){
h <- gleverage(object) # former hatvalues
rp <- residuals(object)
k <- length(object$coefficients)
cd <- (h*rp^2) / ( k * (1-h)^2 )
return(cd)
}
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.