I'm not a frequent poster so I apologize if this format is not correct. If you tell me how to show the data I will make that change. In the meantime, here is the code. The vif() generates very different scores at the k=0 level in lmridge. Why are they different?
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)