Clean Data Frame for 10% Sample

Clean data frame for 10% sample. R hangs at termination of script but processed ok.