require("NLP")
doc <- readRDS(system.file("texts", "stanford.rds", package = "NLP"))
s <- content(doc)
a <- annotation(doc)
diversity_annotator <- QDAP_Diversity_Annotator()
diversity_annotator(s, a)
Run the code above in your browser using DataLab