percentages code snippets in r