Commiting Lab6.R script