Nothing
cooks.distance.BinaryEPPM <-
function (model, ...) {
h <- hatvalues.BinaryEPPM(model)
k <- length(model$coefficients$p.est)
res <- residuals.BinaryEPPM(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.