variable selection code snippets in r