R/cooks.distance.CountsEPPM.R

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) }

Try the CountsEPPM package in your browser

Any scripts or data that you put into this service are public.

CountsEPPM documentation built on May 1, 2019, 10:25 p.m.