update cleaning data R script