Plot code included

A plot code has been included in this R code commit