second commit - R script