if (FALSE) {
x1 <- all_words(raj$dialogue, begins.with="re")
head(x1, 10)
x2 <- all_words(raj$dialogue, "q")
head(x2, 10)
all_words(raj$dialogue, contains="conc")
x3 <- all_words(raj$dialogue)
head(x3, 10)
x4 <- all_words(raj$dialogue, contains="the")
head(x4)
x5 <- all_words(raj$dialogue, contains="read")
head(x5)
## Filter by nchar and stopwords
Filter(head(x3), min = 3)
## Keep spaces
all_words(space_fill(DATA$state, c("are you", "can be")))
}
Run the code above in your browser using DataLab