Add CleanText function to predictor.R