Updated R code for peer assessment
Updated R code for peer assessment