edited R script comments