Wyciąg z kwadratowego z LM w R

pull(glance(data), r.squared)
Successful Salmon