lm

extract r squared from lm in r