Wyciąg z kwadratowego z LM w R
pull(glance(data), r.squared)
Successful Salmon
pull(glance(data), r.squared)