# NOT RUN {
# You must have "tidytext" library to use this auxiliary function:
# }
# NOT RUN {
women <- read.csv("https://bit.ly/3mXJOOi")
x <- women$description
ngrams(x, ngram = c(2, 3), top = 3)
ngrams(x, ngram = 2, top = 6, stop_words = c("a", "is", "of", "the"))
# }
Run the code above in your browser using DataLab