nchar(texts(subset(inaugCorpus, Year < 1806)))
# grouping on a document variable
nchar(texts(subset(inaugCorpus, Year < 1806), groups = "President"))
# grouping a character vector using a factor
nchar(inaugTexts[1:5])
nchar(texts(inaugTexts[1:5], groups = as.factor(inaugCorpus[1:5, "President"])))
Run the code above in your browser using DataLab