created a R-Project using RStudio
completed script for Plot 1