R语言 检验多重共线性

函数kappa()

df<-data.frame()df_cor=cor(df)kappa(df_cor, exact=T)

当 κ<100 , 说明共线性程度小；

当 100<κ<1000 , 有较强的多重共线性；

当 κ>1000 ，存在严重的多重共线性。

函数qr()

x<-matrix()qr(x)$rank

qr(X)$rank 计算X矩阵的秩，如果不是满秩的，说明其中有 xi 可以用其他 xj 的线性组合表示；此时可以进行逐步回归，用step()命令。

fm<-lm()step(fm)