R Code For Calculating Mean