working on some data imputation code in clean.r