2013-04-01 3 views
45

저는 이름이 아닌 B1 (newx) 선형 모델 계수의 값만을 찾고 있습니다. 0.5 값을 원합니다. 나는 "newx"라는 이름을 원하지 않는다. 내가 여기에 도착이름이없는 번호에서 번호 만 추출하려면 어떻게합니까?

Call: 
lm(formula = newy ~ newx) 

Coefficients: 
(Intercept)   newx 
     1.5   1.0 

: 같은

newx <- c(0.5,1.5.2.5) 

newy <- c(2,3,4) 

out <- lm(newy ~ newx) 

out 보인다. 하지만 지금은 붙어 있습니다.

out$coefficients["newx"] 

newx 

1.0 
+5

'as.numeric을 ($ 밖으로 계수 [ "이 newX은"])' – Ben

+0

as.numeric이 작업을 수행합니다. 숫자를 강요하는 것은 비용이 적게 드는 방법일까요? –

답변

65

이 같은 하나의 요소에 대해, [[보다는 [ 사용합니다. 비교 :

coefficients(out)["newx"] 
# newx 
# 1 

coefficients(out)[["newx"]] 
# [1] 1 

더 일반적으로, unname()를 사용

unname(coefficients(out)[c("newx", "(Intercept)")]) 
# [1] 1.0 1.5 

head(unname(mtcars)) 
#      NA NA NA NA NA NA NA NA NA NA NA 
# Mazda RX4   21.0 6 160 110 3.90 2.620 16.46 0 1 4 4 
# Mazda RX4 Wag  21.0 6 160 110 3.90 2.875 17.02 0 1 4 4 
# Datsun 710  22.8 4 108 93 3.85 2.320 18.61 1 1 4 1 
# Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1 
# Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2 
# Valiant   18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 

## etc.