RTextTools set up