Nothing
cooks.distance.CountsEPPM <-
function (model, ...) {
h <- hatvalues.CountsEPPM(model)
k <- length(model$coefficients$mean.est)
res <- residuals.CountsEPPM(model, type = "pearson")
h * (res^2)/(k * (1 - h)^2) }
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.