A small R script to clean some data, see https://class.coursera.org/getdata-004/human_grading