Update cleandata.R