multivariate code snippets in r