lm에서 최종 계수 값을 추출하는 방법

Question

다른 절편 값의 "최종 값"을 추출하고 싶습니다. "

#(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") 

내가 이것을 추출 할 :

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

및 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에 대해 알고 :

이것은 ruido = 1 및 ruido = 2 내 모델입니다 01에 대한 최종 값 " 직접, 방법이 있습니까?

감사합니다.

Answer 1

당신은 R.에있는 모든 개체의 구조를 볼 수 str()를 사용 그래서 R 콘솔에서이 작업을 실행할 수 있습니다 : 이것은 당신에게 yur lm 모델의 구조를 보여줍니다

str(lm.color0) 

. $으로 액세스 할 수있는 필드가 "계수"라는 것을 알 수 있습니다. 그런 다음 필요에 따라 조합하는 것은 사소한 일입니다.

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