Added the r script and the clean dat set