Write Partial predictNextWord.r Script

Write partial predictNextWord.r script. Cleans test text. Still need to select from TermDocumentMatrix.