Wydaj współczynniki z LM w R

summary(lm)$coefficients[1,2]
Successful Salmon