# 检查变量间的相关系数
> cor_matrix <- cor(panel[, c("X_Score", "control1", "control2", "control3", "control4", "control5")], use = "complete.obs")
> print(cor_matrix)
X_Score control1 control2 control3 control4 control5
X_Score 1.0000000 0.14838646 0.2346926 0.2758366 -0.11208860 0.2835454
control1 0.1483865 1.00000000 0.2051195 0.3454094 -0.03448468 -0.2240777
control2 0.2346926 0.20511950 1.0000000 0.1641155 -0.04198970 0.1177147
control3 0.2758366 0.34540941 0.1641155 1.0000000 -0.85027899 -0.3498146
control4 -0.1120886 -0.03448468 -0.0419897 -0.8502790 1.00000000 0.3331410
control5 0.2835454 -0.22407766 0.1177147 -0.3498146 0.33314097 1.0000000
> # 临时用 lm() 计算 VIF(忽略面板结构)
> lm_for_vif <- lm(Y1_Score ~ X_Score + control1 + control2 + control3 + control4 + control5,
+ data = panel)
> car::vif(lm_for_vif) # 使用 car 包的 vif()
X_Score control1 control2 control3 control4 control5
1.406847 1.641862 1.125273 6.540524 5.355319 1.455666
| |||||||||||||||||||||||||
| 3和4的控制变量中度共线,只保留3 | |||||||||||||||||||||||||
|
空间效应分析步骤代码实现过程
最新推荐文章于 2026-01-04 20:00:13 发布
4303

被折叠的 条评论
为什么被折叠?



