d1 <- SentimentDictionary(c("uncertain", "possible", "likely"))
d2 <- SentimentDictionary(c("rather", "intend", "likely"))
cmp <- compareDictionaries(d1, d2)
d1 <- SentimentDictionary(c("increase", "rise", "more"),
c("fall", "drop"))
d2 <- SentimentDictionary(c("positive", "rise", "more"),
c("negative", "drop"))
cmp <- compareDictionaries(d1, d2)
d1 <- SentimentDictionary(c("increase", "decrease", "exit"),
c(+1, -1, -10),
rep(NA, 3))
d2 <- SentimentDictionary(c("increase", "decrease", "drop", "neutral"),
c(+2, -5, -1, 0),
rep(NA, 4))
cmp <- compareDictionaries(d1, d2)
Run the code above in your browser using DataLab