Koeffizienten aus LM in r extrahieren
summary(lm)$coefficients[1,2]
Successful Salmon
summary(lm)$coefficients[1,2]