Commented R script