Update sentiment.R