Extrair coeficientes de LM em R
summary(lm)$coefficients[1,2]
Successful Salmon
summary(lm)$coefficients[1,2]