# NOT RUN {
words.list <- scan(system.file('data/negwords.txt', package = 'edgar'), what='character')
## User can apply any desired user defined dictionary other than
## default dictionaries from this package in txt format with each word in separate line.
senti.words <- getSentimentCount(word.frq, words.list)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab