Commiting the final R Script for Programming Assignment 2