# NOT RUN {
output <- getBusinDescr(cik.no = c(1000180, 38079), filing.year = 2005)
## saves scrapped "Item 1" section from 10-K filings for CIKs in
"Business descriptions text" directory present
in the working directory. Also, it provides filing information in
the output datframe.
output <- getBusinDescr(cik.no = c(1000180, 38079),
filing.year = c(2005, 2006))
# }
Run the code above in your browser using DataLab