Re:오늘의 마지막 문제. 문제265.test_vif2.csv 를 로드하고 다중 회귀분석을 한후 다중 공선성 독립변수들이 있었는지 확인하시오

[11기_강혜리]

cor(test2[,c("아이큐", "공부시간", "등급평균")])

> cor(test2[,c("아이큐", "공부시간", "등급평균")])
            아이큐  공부시간  등급평균
아이큐   1.0000000 0.7710712 0.9736894
공부시간 0.7710712 1.0000000 0.7300546
등급평균 0.9736894 0.7300546 1.0000000

test2<-test2[,-1]

m2<-lm(test2$시험점수~.,data=test2)

summary(m2)

vif(m2)

> test2<-test2[,-1]
> m2<-lm(test2$시험점수~.,data=test2)

> summary(m2)

Call:
lm(formula = test2$시험점수 ~ ., data = test2)

Residuals:
    Min      1Q  Median      3Q     Max
-6.3146 -1.2184 -0.4266  1.5516  5.6358

Coefficients:
            Estimate Std. Error t value Pr(>|t|) 
(Intercept) 50.30669   35.70317   1.409   0.2085 
아이큐       0.05875    0.55872   0.105   0.9197 
공부시간     0.48876    0.17719   2.758   0.0329 *
등급평균     7.37578    8.63161   0.855   0.4256 
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 3.952 on 6 degrees of freedom
Multiple R-squared:  0.9155,        Adjusted R-squared:  0.8733
F-statistic: 21.68 on 3 and 6 DF,  p-value: 0.001275

> vif(m2)
   아이큐  공부시간  등급평균
22.643553  2.517786 19.658264