Ekstrak r kuadrat dari lm di r
pull(glance(data), r.squared)
Successful Salmon
pull(glance(data), r.squared)