dimension-reduction code snippets in r