Adding some R Code