Extrakt r quadriert von lm in r
pull(glance(data), r.squared)
Successful Salmon
pull(glance(data), r.squared)