texts(inaugCorpus)[1]
sapply(texts(inaugCorpus), nchar) # length in characters of the inaugual corpus texts
## this doesn't work yet - need to overload `[` for this replacement function
# texts(inaugTexts)[55] <- "GW Bush's second inaugural address, the condensed version."
Run the code above in your browser using DataLab