Nothing
cooks.distance.mlm <-
function (model, infl = mlm.influence(model, do.coef = FALSE), ...)
{
cookd <- infl$CookD
m <- infl$m
names(cookd) <- if(m==1) infl$subsets else apply(infl$subsets,1, paste, collapse=',')
cookd
}
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.