R script and Data from the course