Changed clean_data.R to use with new data of May2013

Added may2013 raw csv