reading data code snippets in r