data(ccdata)
fit <- blm(y~female+packyear, data = ccdata,
weight = ccdata$w, strata = ccdata$strata)
summary(leverage(fit))
fit <- lexpit(y~female, y~packyear, data = ccdata,
weight = ccdata$w, strata = ccdata$strata)
sort(leverage(fit), decreas=TRUE)[1:5]
Run the code above in your browser using DataLab