为什么在R中运行vif（）函数时出现错误？

Question

我正在检查数据的多重共线性，并且正在使用3个测试，这些测试是Spearman相关性，条件编号和方差信息因子（VIF）。当我尝试在R中运行VIF代码并提示错误时。

我设法运行Spearman相关性和条件数，并删除了高度相关的变量，其中r-value的截止值为0.3。接下来，我尝试使用vif()中的R函数检查每个变量的vif。

Data <- read.csv("Data.csv")
names(Data)
attach(Data)
dim(Data)

sapply(Data,class)

#selecting explanatory variables
DataRed <- Data[,c(4:8,10:73)]
dim(PrepaidMatRed)
#setting my data as a data frame
DataDF <- data.frame(DataRed,row.names = NULL,check.rows = FALSE,check.names = TRUE)

VIF <- vif(DataDF)

预期的是所有变量都具有VIF值，但是我遇到了以下提到的错误：

Error in vcov.default(mod) : 
there is no vcov() method for models of class data.frame