sparse matrices code snippets in r