confidence-interval code snippets in r