R Code Assignment