Initial Check-in of scratch-pad r sript.
Merge https://github.com/kevingscott/RepData_PeerAssessment2