Update TextAnalytics1.R