# NOT RUN {
# You must have \code{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