R script and readme for course assignment