Adding R code and my first plot