Create Clean.up.R

script to clean up the data. I need to delete profiles with only one horizon, but I was not able.