R script for the peer assessment data cleansing exercise at github