data("phone_offers")
polite.data<-politeness(phone_offers$message, parser="none",drop_blank=FALSE)
findPoliteTexts(phone_offers$message,
phone_offers$condition,
type = "most",
num_docs = 5)
Run the code above in your browser using DataLab