Update cleandata.r