The need for the R function Self_Cleaning (data)