How To Calculate Sample Mean In R