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)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…