Added more comments

Added comments on how to run this R code