data normalization code snippets in r