결정계수(R2) 계산

ADsP 기출 문제로 결정계수 구하는 문제가 나왔다고 합니다.

실제 기출은 주관식이었을 수도 있습니다만, R 내장 데이터 mtcars 를 이용하여 객관식으로 문제를 만들어 보았습니다.

 

문제

 

아래의 결과를 사용하여 결정계수(R²)를 계산하시오

 

> anova(lm(mpg~hp,data=mtcars))
Analysis of Variance Table

Response: mpg
          Df Sum Sq Mean Sq F value    Pr(>F)    
hp         1 678.37  678.37   45.46 1.788e-07 ***
Residuals 30 447.67   14.92

①  447.67 / 678.37 2     ②  678.37 / (678.37+447.67)    ③ 678.37 / (678.37+14.92)     ④ 30 / 45.46

 

 

정답

 

정답은 2번입니다.

 

 

 

풀이

 

결정계수는 SSreg / SStot 입니다.