powered by
E10.1
x.1
x.2
data(E10.1)
data(E10.1) attach(E10.1) plot(x.1, x.2) names(E10.1) hascar <- require(car) if (hascar) { mod <- lm(y.1 ~ x.1+x.2, data=E10.1) vif(mod) }
Run the code above in your browser using DataLab