R script for the project assignment of the course Getting and Cleaning Data