R/weights.cubinf.R

In robcbi: Conditionally Unbiased Bounded Influence Estimates

Defines functions weights.cubinf

Documented in weights.cubinf

weights.cubinf <-
function(object)
{
 res <- object$y -object$ci - object$fitted.values  
 z <- pmin(1,object$ai/abs(res)) 
 class(z) <- "cubinf.i"
 z}

Try the robcbi package in your browser