u <- c(5,10,15,20,30,40,60,80,100)
lot1 <- c(118,58,42,35,27,25,23,20,18)
lot2 <- c(69,35,26,21,18,16,13,12,6)
data <- data.frame(cbind(u,lot1,lot2))
lm <- lm(u~.,data=data)
y<-lm$model[,1]
x<-lm$model[,-1]
VIF<-vif(y,x,lm)
print(VIF)
Run the code above in your browser using DataLab