robust regression code snippets in r