data(germancredit)
# Example I
fit1 = glm(creditability~ age.in.years + credit.amount +
present.residence.since, family = binomial(), data = germancredit)
vif(fit1)
vif(fit1, merge_coef=TRUE)
# Example II
fit2 = glm(creditability~ status.of.existing.checking.account +
credit.history + credit.amount, family = binomial(), data = germancredit)
vif(fit2)
vif(fit2, merge_coef=TRUE)
Run the code above in your browser using DataLab