как извлечь значения конечных коэффициентов из 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") 

Я хочу, чтобы извлечь это " окончательные значения "для обоих ruidos прямо, есть ли способ?

Спасибо.

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"]]