data(litters)
litters.lm <- lm(brainwt ~ bodywt + lsize, data = litters)
vif(litters.lm)
data(carprice)
carprice1.lm <- lm(gpm100 ~ Type+Min.Price+Price+Max.Price+Range.Price,
data=carprice)
vif(carprice1.lm)
carprice.lm <- lm(gpm100 ~ Type + Price, data = carprice)
vif(carprice1.lm)
Run the code above in your browser using DataLab