Adding Lecture 2 R Code