Create Clean_the _data.R