如何从lm中提取最终系数值

Question

我想提取不同截距值的“最终值”。

这是我的模型，其中ruido = 1和ruido = 2：

lm.color0 <- lm(RT.ms ~ TransDist*as.factor(ruido), data = BO.hits.sinOuts.Lum13.Color0) 

summary(lm.color0) 

#Coefficients: 
#        Estimate Std. Error t value Pr(>|t|)  
#(Intercept)     451.25190 5.03016 89.709 < 2e-16 *** 
#TransDist      2.54787 0.04309 59.126 < 2e-16 *** 
#as.factor(ruido)2   21.59586 7.16326 3.015 0.00258 ** 
#TransDist:as.factor(ruido)2 0.34196 0.06098 5.608 2.1e-08 *** 

我知道，ruido=1：

#(Intercept)     451.25190 ("final value) 
#TransDist      2.54787 ("final value) 

和ruido=2：

#(Intercept)     451.25190 + 21.59586 (from as.factor(ruido)2) = 472,84776 ("final value") 
#TransDist      2.54787 + 0.34196 (TransDist:as.factor(ruido)2) = 2,88983 ("final value") 

我想提取这个“最终值“直接，有没有办法？

谢谢。

Answer 1

您可以使用str()看到R.任何物体的结构，所以在你的[R控制台运行此：

str(lm.color0) 

这将显示您尤尔lm模型的结构。您会注意到一个可以通过$称为“系数”的字段。然后根据需要将它们组合起来并不重要。

lm.color0$coefficients[["(Intercept)"]] 
lm.color0$coefficients[["TransDist"]] 

lm.color0$coefficients[["(Intercept)"]] + lm.color0$coefficients[["as.factor(ruido)2"]] 
lm.color0$coefficients[["TransDist"]] + lm.color0$coefficients[["TransDist:as.factor(ruido)2"]]