lm function code snippets in r

create a linear regression in r