# NOT RUN {
myvec <- c("the quick brown fox eats chickens",
"the slow gray fox eats the slow chicken",
"look at my horse", "my horses are amazing")
names(myvec) <- paste("doc", 1:length(myvec), sep="_")
dtm <- Vec2Dtm(vec = myvec, min.n.gram = 1, max.n.gram = 1)
dtm_new <- DepluralizeDtm(dtm = dtm)
#'
# }
Run the code above in your browser using DataLab