Plots 1 & 2 R scripts

I'm not uploading the png files cuz they take too long