Create Data_Clean_with_R.r