# NOT RUN {
## User needs to input Compustat data in dataframe format.
compustat.data <- read.csv('compustat_data.csv')
## User can apply any desired user defined dictionary
## other than default dictionaries from this package.
words.list <- scan(system.file('data/negwords.txt', package = 'edgar')
, what='character')
## For single cik
res <- mergeCompustat( 2098, 2014, words.list, compustat.data)
## User can provide list of different CIK's.
cik.no <- c(1750,6201,2098)
res <- mergeCompustat( cik.no, 2014, words.list, compustat.data)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab