linear-regression code snippets in r