plots and R scripts for exdata project 1