#install.packages("car")
library(car)
model1<-lm(Temp ~ . , data = climate) # all the independent variables are numeric.
summary(model1) # Proper output
vif(model1)
执行vif(model1)时，我收到错误和警告。
as.vector（y）中的错误 - mean（y）：二元运算符的非数字参数
另外：警告信息：
在mean.default（y）中：参数不是数字或逻辑：返回NA
我在stackoverflow中经历了类似的查询。他们中的大多数建议安装car包。我这样做仍然没有运气。
STR（气候）
'data.frame'：308 obs。 9个变量：
$ MEI：num 2.556 2.167 1.741 1.13 0.428 ......
$ CO2：num 346 346 344 342 340 ...
$ CH4：num 1639 1634 1633 1631 1648 ...
$ N2O：num 304 304 304 304 304 ...
$ CFC.11：num 191 192 193 194 194 ...
$ CFC.12：num 350 352 354 356 357 ...
$ TSI：num 1366 1366 1366 1366 1366 ...
$ Aerosols：num 0.0863 0.0794 0.0731 0.0673 0.0619 0.0569 0.0524 0.0486 0.0451 0.0416 ...
$ Temp：num 0.109 0.118 0.137 0.176 0.149 0.093 0.232 0.078 0.089 0.013 ...