if (FALSE) {
word_list(raj.act.1$dialogue)
out1 <- with(raj, word_list(text.var = dialogue,
grouping.var = list(person, act)))
names(out1)
lapply(out1$cwl, "[", 1:5)
with(DATA, word_list(state, person))
with(DATA, word_list(state, person, stopwords = Top25Words))
with(DATA, word_list(state, person, cap = FALSE, cap.list=c("do", "we")))
}
Run the code above in your browser using DataLab