>out=lm(Fertility~Education,data-swiss)
>anova(out)
Analysis of Variance Table

Response: Fertility
                     Df  Sum Sq  Mean Sq  F value Pr(>F)
Education 1  3162.7     3162.7      35.446 3.659e-07 ***
Residuals 45 4015.2       89.2


결정계수가 설명가능분산/전체분산이잖아요

이것만 보고 어케 구하죠?