comment change to R script