Question

我想提取＆＃34;最终值＆＃34;我不同的拦截值。

这是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")

我想提取这个＆＃34;最终值＆＃34;两个ruidos直接，有办法吗？

感谢。

Answer 1

您可以使用str()查看R中任何对象的结构。所以在R控制台中运行它：

str(lm.color0)

这将显示yur 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"]]

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

1 个答案: