Update sentiment_analysis.R

calling the polarity functions