# NOT RUN {
data(nih_sample)
dtm <- Vec2Dtm(vec = nih_sample$ABSTRACT_TEXT,
docnames = nih_sample$APPLICATION_ID,
min.n.gram = 1, max.n.gram = 2)
dim(dtm)
head(colnames(dtm))
head(rownames(dtm))
# }
Run the code above in your browser using DataLab