Update testingandleaning.R