CleanData09

cleaned up R script