Commented the R scripts