R Code: