Added R Code Files and Plots 1,2,3,4