R sentiment.R