R/cooks.distance.BinaryEPPM.R

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

Try the BinaryEPPM package in your browser

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

BinaryEPPM documentation built on July 31, 2019, 5:08 p.m.