在线性回归中由每个变量解释的结果的方差比例

Question

在下面找到的示例数据集中，我想用线性回归模型计算每个自变量解释的科学方差比例。我怎么能在R中实现呢？

auto& short_name = very_long_name_that_cannot_be_changed;
short_name.resize(100);             // will expand the vector, but not change the reference
short_name.back().emplace_back(20); // presto, quick accesss to the last element.

Answer 1

其中一种方法是使用anova()包中的stats函数。 它给出了由每个变量和总平方和（即方差）

解释的残差平方和

anova(m1)
 Analysis of Variance Table

 Response: science
           Df Sum Sq Mean Sq  F value    Pr(>F)    
math        1 7760.6  7760.6 151.8810 < 2.2e-16 ***
female      1  233.0   233.0   4.5599  0.033977 *  
socst       1  465.6   465.6   9.1128  0.002878 ** 
read        1 1084.5  1084.5  21.2254 7.363e-06 ***
Residuals 195 9963.8    51.1                       
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1