R code to clean the data from UCI data