Added the plots and accompanying R codes