outlier detection code snippets in r