Create Sentiment Analysis Script.R