How To Find The Average In R