Szukam tylko wartości współczynnika modelu liniowego B1 (newx), a nie nazwy. Chcę tylko wartość 0,5. Nie chcę nazwy „newx”.
newx <- c(0.5,1.5.2.5)
newy <- c(2,3,4)
out <- lm(newy ~ newx)
out
wygląda jak:
Call:
lm(formula = newy ~ newx)
Coefficients:
(Intercept) newx
1.5 1.0
Przyjechałem tutaj. Ale teraz utknąłem.
out$coefficients["newx"]
newx
1.0
as.numeric(out$coefficients["newx"])
newx
(2) zamiast nazwy, takiej jakout[[1]][[2]]
.Odpowiedzi:
W przypadku takiego pojedynczego elementu użyj
[[
zamiast[
. Porównać:coefficients(out)["newx"] # newx # 1 coefficients(out)[["newx"]] # [1] 1
Mówiąc bardziej ogólnie, użyj
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.
źródło
Jeśli chodzi o usuwanie nazwisk, tutaj jest inny sposób
my_vec <- # some quantile function(returns named vector) names(my_vec) <- NULL my_vec ## [1] 1 2 3
źródło
Innym sposobem byłoby użycie
broom
pakietu:broom::tidy(out)$estimate[1] #1.5
źródło