Update Sentiment Analysis Script.R