## 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.
#
# senti.words <- getSentimentCount(word.frq, words.list)
# ## End(Not run)
Run the code above in your browser using DataLab