numPositiveEntries(SentimentDictionary(c("increase", "rise", "more"),
c("fall", "drop"))) # returns 3
numPositiveEntries(SentimentDictionary(c("increase", "decrease", "exit"),
c(+1, -1, -10),
rep(NA, 3))) # returns 1
Run the code above in your browser using DataLab