removed some extra comments from the R script