R/hatvalues.drc.R

In MaximeBSanofi/drc2:

Defines functions hatvalues.drc

Documented in hatvalues.drc

hatvalues.drc <- function(model, ...)
{
    xmat <- model$der
    diag(xmat %*% ginv(t(xmat) %*% xmat) %*% t(xmat))
#    names(hvector) <- as.character(1:length(hvector))
#    hvector
}