2013-04-01 19 views
45

Sadece B1 (newx) lineer model katsayısının değerini değil, ismini arıyorum. Ben sadece 0.5 değerini istiyorum. Ben "newx" ismini istemiyorum. Buraya geldiSadece numarayı adlandırılmış numaradan nasıl alırım (isimsiz)?

Call: 
lm(formula = newy ~ newx) 

Coefficients: 
(Intercept)   newx 
     1.5   1.0 

: gibi

newx <- c(0.5,1.5.2.5) 

newy <- c(2,3,4) 

out <- lm(newy ~ newx) 

out görünüyor. Ama şimdi sıkıştım.

out$coefficients["newx"] 

newx 

1.0 
+5

'as.numeric ($ dışarı katsayıları [ "newx"])' – Ben

+0

as.numeric çalışır olduğunu. Belki bir sayıyı zorlamak için düşük maliyetli bir yoldur? –

cevap

65

böyle tek bir eleman için, [[ yerine [ kullanın. Karşılaştırma:

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

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

Daha genel unname() kullanın:

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.