r - 为什么 car 包中的 vif() 结果与 lmridge R 中的结果不同？

Question

我不是一个经常发帖的人，所以如果这种格式不正确，我深表歉意。如果你告诉我如何显示数据，我会做出改变。与此同时，这里是代码。vif() 在 lmridge 中的 k=0 级别生成非常不同的分数。为什么它们不同？

library(car)
library(lmridge)

data <- Duncan
ds   <- as.data.frame(scale(data[,2:4]))

m <- lm(prestige ~ income + education, data = ds)
vif(m)


m2 <- lmridge(prestige ~ income + education, data = ds,
              scaling = "scaled",
              K = seq(0,1,0.10))
vif.lmridge(m2)