Added New R Code

Related to calculating pollution mean